Текущий архив: 2007.02.11;
Скачать: 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 вся ветка
Текущий архив: 2007.02.11;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
