procedure TForm1.BitBtn1Click(Sender: TObject);
begin
table1.open;
randomize;
i:=0
while i<10 do
begin
table1.RecNo:=random(n);
table1.MoveBy(table1.RecNo);
i:=i+1;
end;
end;
上面这段程序运行时,为什么不能实现循环随机抽取?总是只是指到同一个记录?
...全文
8510打赏收藏
s请教随机函数的用法
procedure TForm1.BitBtn1Click(Sender: TObject); begin table1.open; randomize; i:=0 while i<10 do begin table1.RecNo:=random(n); table1.MoveBy(table1.RecNo); i:=i+1; end; end; 上面这段程序运行时,为什么不能实现循环随机抽取?总是只是指到同一个记录?