Форум: "WinAPI";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

КАК СДЕЛАТЬ, ЧТО БЫ ПРИ ЗАПУСКЕ МОЯ ПРОГРАММА В Labele ОТОБРАЖАЛА ПРОИЗВОЛЬНОЕ ЧИСЛО?   Найти похожие ветки 

← →
Pat   (2001-11-25 12:18) [2]

procedure TForm1.FormCreate(Sender: TObject);

var i : integer;

begin

randomize;

label1.Caption := inttostr(random(9) + 1);

for i := 1 to 9 do

begin

label1.Caption := label1.Caption +

inttostr(random(10));

end;

end;

---

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

Форум: "WinAPI";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c