如何随机的从一个表中取出一些记录保存到一个数组中

[dlss]

如何随机的从一个表中取出一些记录保存到一个数组中

[gilbertz]

var
a:array [1..100] of integer;
total:integer;
i:integer;
begin
//在FormCreate中使用 Randomize; 这条语句
Table1.Open;
total:=Table1.RecordCount;
for i:=1 to 100 do begin
Table1.First;
Table1.MoveBy(random(total));
a[i]:=Table1.FieldByName('xxx').AsInteger;
end;

end;

[长弓三石]

让数据集滚动（dataset.next,到末尾时在滚动到第一条），然后用一timer控件定时抽出当前记录保存到数组中，抽出的记录做上标记，然后接着滚动。