s请教随机函数的用法

ssj6887 2002-02-05 10:20:49
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;
上面这段程序运行时,为什么不能实现循环随机抽取?总是只是指到同一个记录?
...全文
85 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
ksx 2002-02-05
  • 打赏
  • 举报
回复
就是啊,你那个n是什么东东?
dancemaple 2002-02-05
  • 打赏
  • 举报
回复
sorry,看错了
dancemaple 2002-02-05
  • 打赏
  • 举报
回复
要先用Randomize初始化
wbamboo 2002-02-05
  • 打赏
  • 举报
回复
你定义的n是什么?
ssj6887 2002-02-05
  • 打赏
  • 举报
回复
现在随机抽取实现了,不过停不下来,我想知道再次按下这个安钮,就会停下,这个功能怎么实现?
2000lixiang 2002-02-05
  • 打赏
  • 举报
回复
函数的用法没错。
2000lixiang 2002-02-05
  • 打赏
  • 举报
回复
你那张表有多少记录?
liuyun9806 2002-02-05
  • 打赏
  • 举报
回复
随即函数的用法没有错,你的程序要实现什么功能呢
抱朴守拙 2002-02-05
  • 打赏
  • 举报
回复
你想实现什么功能呢?
ssj6887 2002-02-05
  • 打赏
  • 举报
回复
就是一个数值,可以是50,100等

828

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧