- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
//
// Занимательное программирование C++
// С.Симонович, Г.Евсеев, 2001
//
// Глава 12. Программа учится сочинять
//
void __fastcall TForm1::FormCreate
(TObject *Sender)
{
randomize();
ComboBox1->ItemIndex = 0;
ComboBox2->ItemIndex = 0;
ComboBox3->ItemIndex = 0;
}
void __fastcall TForm1::Button1Click
(TObject *Sender)
{
ComboBox1->ItemIndex =
random(ComboBox1->Items->Count);
ComboBox2->ItemIndex =
random(ComboBox2->Items->Count);
ComboBox3->ItemIndex =
random(ComboBox3->Items->Count);
}
eth0 17.04.2011 10:38 # 0
Lure Of Chaos 17.04.2011 12:03 # +3
Surendil 17.04.2011 13:55 # 0
absolut 17.04.2011 13:20 # +3
Surendil 17.04.2011 13:53 # 0
guest 17.04.2011 13:26 # 0
Surendil 17.04.2011 13:33 # 0
Lure Of Chaos 17.04.2011 14:41 # +3
медленно
поёт
Surendil 17.04.2011 14:44 # 0
Lure Of Chaos 17.04.2011 14:47 # 0
eth0 18.04.2011 09:25 # 0
iddqd 18.04.2011 09:29 # +4
RaZeR 18.04.2011 19:42 # 0
громко
плавает
Govnocoder#0xFF 19.04.2011 18:43 # +1
ОБОССЫ МЕНЯ ГОСПОДЬ, ЭТО ЖЕ МОЙ ПЕРВЫЙ УЧЕБНИК ПО Delphi!!!!111
Алсо, вот ссылка на саму программу: http://dl.dropbox.com/u/16275238/Writer.exe
bugmenot 19.04.2011 18:49 # 0
guest 19.04.2011 18:53 # +3
Govnocoder#0xFF 19.04.2011 19:08 # 0
Нету там никакого вишмастера. Kekeke
RaZeR 20.04.2011 20:21 # +2
SadKo 19.04.2011 16:01 # 0
Черепаха быстро летает.
Govnocoder#0xFF 19.04.2011 18:36 # 0
Lure Of Chaos 19.04.2011 19:02 # 0
Govnocoder#0xFF 19.04.2011 19:07 # 0
Lure Of Chaos 19.04.2011 19:41 # 0