Скачать: CL | DM;

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

← →
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)];?

---

← →
unknown ©   (2007-01-24 12:01) [3]

> ASoft   (24.01.07 11:43) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.057 c