Показать сообщение отдельно

  #10  
Старый 16.08.2008, 03:24
diznt
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108

Репутация: 445


По умолчанию

И так я хочу создать калькулятор
Задал кнопке событие чтобы оно писало в мое окошечко где все вводиться

Код:
procedure TForm1.but1Click(Sender: TObject);
begin
 txtN.Text:='1';
end;
Так он мне выводит в строчку одну единицу а я хочу чтобы было столько единиц скока я нажал на кнопку
Собственно как изменить код чтобы так и было ( как я пожелаю )

И вот я еще с чем столкнулся
Написал событие
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if rad1.Checked:=True then
  begin
   memo1.Lines.Add(txtA.Text);
   txtB.Text(txtA.Text);
   txtC.Text(txtA.Text);
  end;
end;
Так оно ругаеться


Последний раз редактировалось diznt; 16.08.2008 в 06:22..
 
Ответить с цитированием