Как сделать случайный вывод текста

← →
ashnurov (2007-01-24 08:18) [0]

Подскажите как вывести случайный текст в edit1 вот мой код, что в нём не так.
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
i:=StrToInt("Ура");
i:=StrToInt("Привет");
i:=StrToInt("Так,Так");
edit1.Text:=IntToStr(Random(i));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
end.

← →
unknown © (2007-01-24 08:28) [1]

> ashnurov (24.01.07 08:18)
> i:=StrToInt("Ура");

"Ура" - это число? Интересно, что вообще сподвигло так делать...
Вот пример, как можно:
const StrArray: array[0..2] of ShortString = ("Ура", "Привет", "Так,Так"); procedure TForm1.Button1Click(Sender : TObject); begin edit1.Text := StrArray[Random(2)]; end; procedure TForm1.FormCreate(Sender : TObject); begin Randomize; end;

← →
ASoft (2007-01-24 11:43) [2]

> StrArray[Random(2)];

StrArray[Random(3)];?

> ASoft (24.01.07 11:43) [2]

Да, опечатался :)

Как сделать случайный вывод текста Найти похожие ветки