Случайный текст

[Reaction]

Вообщем есть вопрос чтоб выводился случайный текст надо сделать так:

var i,a:string;
i:='Ты полный хи в двойне...';
a:='Ты полный хи';

ShowMessage(random(i,a));

[Карась]

1. И что вам сказал Random? Почитайте гденибудь что делает эта функция.
В кратце, она возвращает случайное целое ЧИСЛО

2. Желательно вызвать Randomize;
3. Лучше делать так:

Var Text : array [1..5] of String;
Begin
Randomize;
Text[1] := 'Ты полный хи в двойне...';
Text[2] := 'Ты полный хи';
Text[3] := 'Ты полный ...';
Text[4] := 'Ты полный человек';
Text[5] := 'Нажми F1';
ShowMessage(Text[random(5) + 1]);
End;

[Reaction]

Спасибо, просто в первые использую функцию random а раньше делал по другому...