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

Question

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;

Answer 1

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