引言: 是否可說一下你如此作的用意為何??? 如果僅是要顯示於介面上的話，個人提供個笨方法，先用取randon(table.recordcount)的方式來，而後再利用tablbe的moveby的方法來取得單筆資料，然後再存入一暫存table裡，當然再某些資料庫或許可利用SQL語法作達到需求，但不知你用的資料庫類型為何？ ========================= 讀萬卷書~不如來K.TOP走一遭 =========================

谢两位! 我用的是access, 我在结合数据库写一个forum, 我看到国外很多论坛在每一个贴子下都会显示一个其它主题贴子的连接, 而且这个连接的贴子是随机的, 每一次进入都不一样, 而且当我回复该贴子时, 我回复的贴子下也会跟着一个随机的贴子的连接. 所以我很好奇怎样做. 我一直都是用先选取所有, 再随机从返回结果中提出记录的方法. 但我发现随着数据越来越来, 这样做就得花很好内存去存储资料, 实际上我只需要少数几条记录, 但就要把整个资料表找下来, 太可怕了 而< href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59183">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59183的做法我也想过, 但他的做法只适用于返回某一条随机的记录,如果是多条随机记录就不行了.

Var
  I, J : Integer;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From TableName');
  ADOQuery1.Open;
  Randomize;
  I := ADOQuery1.RecordCount;
  J := Random(I) 1;  
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From TableName Where ');
  ADOQuery1.SQL.Add('鍵值欄位 Not In (Select Top X 鍵值欄位 ');
  ADOQuery1.SQL.Add('From TableName) and 鍵值欄位 In ');
  ADOQuery1.SQL.Add('(Select Top Y 鍵值欄位 From TableName)');
  ADOQuery1.Text := StringReplace(ADOQuery1.Text, 'X',
    IntToStr(J), [rfReplaceAll, rfIgnoreCase]);
  ADOQuery1.Text := StringReplace(ADOQuery1.Text, 'Y',
    IntToStr(J 10), [rfReplaceAll, rfIgnoreCase]);
  ADOQuery1.Open;
end;

引言: 您好﹗ 隨機取出某個區域的十筆資料﹕

Var
  I, J : Integer;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From TableName');
  ADOQuery1.Open;
  Randomize;
  I := ADOQuery1.RecordCount;
  J := Random(I) 1;  
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From TableName Where ');
  ADOQuery1.SQL.Add('鍵值欄位 Not In (Select Top X 鍵值欄位 ');
  ADOQuery1.SQL.Add('From TableName) and 鍵值欄位 In ');
  ADOQuery1.SQL.Add('(Select Top Y 鍵值欄位 From TableName)');
  ADOQuery1.Text := StringReplace(ADOQuery1.Text, 'X',
    IntToStr(J), [rfReplaceAll, rfIgnoreCase]);
  ADOQuery1.Text := StringReplace(ADOQuery1.Text, 'Y',
    IntToStr(J 10), [rfReplaceAll, rfIgnoreCase]);
  ADOQuery1.Open;
end;

 
select top 10 * from table order by rnd(id)