![]() |
|
|
#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. |