| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ashnurov ©   (2007-01-24 08:18:00) 

Подскажите как вывести случайный текст в 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 12:01:00) [1]

> ASoft   (24.01.07 11:43) [2]

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

---

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

> StrArray[Random(2)];

StrArray[Random( 3)];?

---

unknown   (2007-01-24 08:28:00) [3]

> 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;

---

Наверх