[lusuj]

Помогите пожалуйста.

Нужно сделать простенькую программу

при нажатии на кнопарь на экране должны выводится случайные числа, у меня выводится только последняя из цикла, что я делаю не так, спасибо.

Код:

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: Пользуемся тегами!

[lusuj]

Admin: Пользуемся тегами!

Сорри, исправлюсь.

[san-46]

Код:

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..."

[lusuj]

2 san-46 спасибо, все получилось