Генерация случайных чисел?!

[Evgeny_1]

Добрый день Господа!!!
Подскажите пожалуйста! Как можно создать генерацию случайных чисел на Delphi?! Чтобы по первому нажатию на кнопку Button1 в Lable1 возникали различные числа от 5 до 20 в интервале 5 сек. А по второму нажатию на Button1 все прекращалось...

Заранее спасибо.
С уважением Evgeny_1.

[uberchel]

вот это нужно:

var
  Form1: TForm1;
  Step: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Step:= 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 case Step of
  1: begin
     Step:= Step + 1;
     Timer1.Enabled:= True;
  end;

  2: begin
     Step:= Step - 1;
     Timer1.Enabled:= False;
 end;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= IntToStr(Random(20));
end;

[Serge_Bliznykov]

uberchel, общая идея правильная,
но Вы забыли иницилизацию генератора ПСЧ, неверно задаёте интервал чисел, да и Step здесь лишний..

вот так более корректно (да и попроще будет):

procedure TForm1.FormCreate(Sender: TObject);
begin
  //надо обязательно иницилизировать генератор ПСЧ
  Randomize;
  Timer1.Interval := 5000; // 5 секунд
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // числа от 5 до 20 включительно
  Label1.Caption:= IntToStr(Random(21-5)+5);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := Not Timer1.Enabled;
end;

[DeKot]

В обеих случаях неверно выбран диапазон:

числа от 5 до 20

, т.е. всего 16 чисел.
Random(15) + 5
Random(15) выдаст случайное число от 0 до 15 (всего 16 значений), добавляем пятерку и попадаем в необходимый диапазон.

procedure TForm1.FormCreate(Sender: TObject);
begin
  //надо обязательно иницилизировать генератор ПСЧ
  Randomize;
  Timer1.Interval := 5000; // 5 секунд
  Timer1.Enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // числа от 5 до 20 включительно будут отображаться последовательно (Label желательно
  //  по ширине формы)
  Label1.Caption:= Label1.Caption + '    '  +  IntToStr(Random(15)+5);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := false;
end;

[Levsha100]

Четырнадцать...
//------------------
За что штраф то...? Я ведь правильно сказал О_О

[DeKot]

Четырнадцать...

Согласен, соврал. Random(15) - значит, что выдаст 15 цифр начиная с нуля, т.е. [0 . . 14]/
Правильно будет - IntToStr(Random(16)+5)
Вот скрин результата проекта
http://i061.radikal.ru/0908/02/e7c558ea90a6.jpg

[Evgeny_1]

Всем Большое Спасибо!!!
Получилось Отлично!!!

[Kostia]

случайное число от a до b, a<b
x:=a+random(b-a+1);
Например:
a=-50; b=-5;
x:=-50+random(-5-(-50)+1); или x:=-50+random(46);
Года 2 назад, была тема в которой ни как не могли правильно записать генерацию случайных чисел)) Примерно тогда я и написал свое первое сообщение на этом форуме и вообще в интернете=)

[DeKot]

OffTop -

За что штраф то...? Я ведь правильно сказал О_О

Че, штраф влепили? Не понятно. Поправка очень правильная. Если и сказанна в завуалированной форме, то наоборот "плюс".Заставляет подумать.Г-да модераторы - хоть в личку объясните.

[Levsha100]

Да ладно. Я сам виноват. А на счет репы мне плевать
//Я опять неправильно выразился, это не штраф а "-"... Мозги просто не успевают за компом
///И тем более это пункт 3.1 нашего закона ))
////Сори, что ошибся.
//////// И еще, НЕ НАДО, пожалуйста, НИЧЕГО "КОМПЕНСИРОВАТЬ" И еще раз повторяю, мне на репу ПЛЕВАТЬ, просто стало интересно...