![]() |
|
#1
|
|||
|
|||
![]() Помогите пожалуйста.
Нужно сделать простенькую программу при нажатии на кнопарь на экране должны выводится случайные числа, у меня выводится только последняя из цикла, что я делаю не так, спасибо. Код:
procedure TForm1.BitBtn1Click(Sender: TObject); var i:integer; begin for i:=1 to 10 do begin randomize; label1.caption:=inttostr(randomrange(1,100)); Windows.SleepEx(200,false); end; end; Admin: Пользуемся тегами! Последний раз редактировалось Admin, 03.06.2008 в 12:03. |
#2
|
|||
|
|||
![]() Цитата:
Сорри, исправлюсь. |
#3
|
|||
|
|||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin randomize; for i:=1 to 10 do begin label1.caption:=inttostr(randomrange(1,100)); Application.ProcessMessages; Windows.SleepEx(200,false); end; end; Из справки: "To initialize the random number generator, add a single call Randomize..." Не забывайте делать резервные копии |
#4
|
|||
|
|||
![]() 2 san-46 спасибо, все получилось
|