怎样得到随机产生5000次后的数？？？

1楼: 例如
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=floattostr(random(10));
end;
当点击button1时,edit1.text自己出现5000次后停止.

谢谢!!

2楼: procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
randomize;
for i := 1 to 5000 do
begin
Edit1.Text:=floattostr(random(10));
Sleep(10);//不要视觉效果的话把这句和下面的那句注释掉
Edit1.Update;
end;
end;//下次记得给点分--------你不是没分

3楼: 另:最好用多线程来实现

4楼: 用For循环或者Timer就可以了如怎么下管家婆软件

5楼: 执行5000次其他操作受限啊

6楼: 多谢 ak_2005 朋友