да не... я все же покажу))) только форму загружу))

это только часть кода(основная)..на кнопочку и окошечко))
___
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ComboBox1.Text:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if ComboBox1.Text='Франция' then
Label1.Caption:='Париж - Парле де франсе =)';

  if ComboBox1.Text='Мадагаскар' then
Label1.Caption:='Антананариву - Это где? =)';

  if ComboBox1.Text='Россия' then
Label1.Caption:='Москва - ПОНАЕХАЛИ =)';

  if ComboBox1.Text='Польша' then
Label1.Caption:='Варшава';

  if ComboBox1.Text='США' then
Label1.Caption:='Вашингтон - балалайка, водка, матрёшка';

  if ComboBox1.Text='Мексика' then
Label1.Caption:='Мехико';

  if ComboBox1.Text='Куба' then
Label1.Caption:='Гавана - Че, надюсь ты там ))';

  if ComboBox1.Text='Германия' then
Label1.Caption:='Берлин - у меня дед воевал ((';
end;

Хигурэ
ну пока на лазарусе(это прототип борланд делфи)
___
кс, а вот это код на прогу "часы для рабочего стола"
___
procedure TForm1.Timer1Timer(Sender: TObject);
var
  DateTime : TDateTime;
  str : string;
begin
  DateTime := Time;  // store the current date and time
  str := TimeToStr(DateTime); // convert the time into a string
  //Caption := str;
  Label1.Caption:=str;  // display the time on the form's caption
  { Note This could have been done with the following line of code:}
  //Caption := TimeToStr(Time);
  Label1.Caption := TimeToStr(Time);

Ян ты вечером тут?
( вечер по МВ)

простейшие и я помню... я про более сложные говорю... допустим написать прогу.... автоматизация кадров на предприятии.... там около 4 форм, 3 баз данных, до 6 отчетов и более 560 строк кода

Отредактировано Миртл (2012-04-25 14:18:28)

скоро приду.... а то меня на много не хватит *ушла*...

*зашла на секунду*
Ян, ответь мне в ролке....тут....
*снова ушла*

ТОЙ-ТЕРЬЕРЧИК ПРИВЕЕЕЕТ