Проблема в калькуляторе

[mrsums]

Помогите пожалуйста разрешить!

procedure TForm1.btn1Click(Sender: TObject);
begin
if q.text='0' then q.text:=+'1'
else q.text:=q.text+'1';
end;

После каждого else выскакивает [Error] Unit1.pas(62): Operator not applicable to this operand type

[NewLamer&Programer]

Сообщение от mrsums

Помогите пожалуйста разрешить!

procedure TForm1.btn1Click(Sender: TObject);
begin
if q.text='0' then q.text:=+'1'
else q.text:=q.text+'1';
end;

После каждого else выскакивает [Error] Unit1.pas(62): Operator not applicable to this operand type

видимо так:

procedure TForm1.btn1Click(Sender: TObject);
begin
if q.text='0' then q.text:=q.text+'1'
else q.text:=q.text+'1';
end;

[mrsums]

Сообщение от NewLamer&Programer

procedure TForm1.btn1Click(Sender: TObject);
begin
if q.text='0' then q.text:=q.text+'1'
else q.text:=q.text+'1';
end;

Спасибо, помогло )

[BDA]

Кстати, теперь можете выбросить if, так как по обеим веткам одинаковое условие.