(Delphi 7) Рандомный ответ при клике на кнопку.

[Jlovenpk1]

Объясните мне, при клике на кнопку в label(или edit,memo) должен выдаться рандомный ответ))
Допустим - 1 раз нажал - Лол.
Второй раз нажал - Другой текст.
Если можно разъясните как это сделалось, ото просто если я зазубрю код наизусть не особо пользы будет)

[Alex11223]

Ну например так:

ans := random(5);
case ans of
  0: lbl1.caption := 'abc';
  1: lbl1.caption := 'qwe';
  2: ...
  3: ...
  4: ...
end;

вроде понятно всё? генерируем число от 0 до 4 и в зависимости от того, что получилось выбираем ответ. Если надо чтоб никогда не получилось два подряд одинаковых, то можно это добавить:

tmpans := ans;
repeat
  ans := random(5)
until ans <> tmpans;

т.е. если получилось тоже самое число, то сгенерировать еще раз и т.д. пока не получится другое число.

[Jlovenpk1]

Так если я правильно понял примерный код мой будет таким.

procedure TForm1.Button1Click(Sender: TObject);
begin
ans := random(5);
case ans of
  0: label1.caption := 'abc';
  1: label1.caption := 'qwe';
  2: ...
  3: ...
  4: ...
end;

[Alex11223]

Видимо да. Только еще бы randomize; где-нибудь в начале добавить не помешало, чтоб числа были "более случайными".
и вместо ... естественно какие-то другие варианты ответа.
и объявить переменную ans надо (integer).
и этот end; относится к case, а не к событию кнопки.

[Jlovenpk1]

Вместо random(5) поставить randomize(5).
(5) - что означает?))

[Alex11223]

http://www.delphibasics.ru/Randomize.php

[Jlovenpk1]

спасибо, буду практиковаться

[Jlovenpk1]

procedure TForm1.Button1Click(Sender: TObject);
var
ans := random(5);integer \\ ругается на него. 
begin
case ans of
  0: label1.caption := 'abc';
  1: label1.caption := 'qwe';
  2: label1.Caption := ' Лол что?)';
  3: label1.caption := 'Ты лол?)';
  4: label1.caption := 'опа опа опа -па -па';
end;
end;
begin
randomize
end.

[Alex11223]

А зачем вы это в объявление засунули? ans должно быть обычной переменной целочисленного типа, а random это стандартная функция и к объявлению отношения не имеет. http://www.delphibasics.ru/Random.php

Не торопитесь, это ж форум, а не чат, почитайте лучше любую книжку про основы Паскаля.

[MoBLer]

Вот так будет правильно

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
ans :integer;
begin
randomize;
ans:=random(5);
case ans of
  0: label1.caption := 'abc';
  1: label1.caption := 'qwe';
  2: label1.Caption := ' Лол что?)';
  3: label1.caption := 'Ты лол?)';
  4: label1.caption := 'опа опа опа -па -па';
end;
end;

end.