разработка простейшего калькулятора в Delphi

[Xardas]

У Вас b целого типа, а сравнивать пытаетесь с символом. Пишите

if b = 0 ....

UPD: Опередили

[seostopjsa]

Tipkeo.com chuyГЄn trang tin tб»©c bГіng Д‘ГЎ, tin tб»©c cГЎc giбєЈ bГіng Д‘ГЎ hГ*ng Д‘бє§u chГўu Гўu, lб»‹ch thi đấu, xem bГіng Д‘ГЎ online. Trang cung cấp tip bГіng Д‘ГЎ, kГЁo bГіng Д‘ГЎ, tip miб»…n phГ* hГ*ng Д‘бє§u việt nam. Tipkeo.com: uy tГ*n -chất lЖ°б»Јng- hiệu quбєЈ.

[Ivanacats]

зато сейчас выводит только так
[Error] Unit1.pas(304): ':=' expected but ':' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Xardas]

: =

Пробел уберите

[Ivanacats]

да но ошибка не происходит программа просто закрывается а не пишется в lbl4 еррор

[kventin_zhuk]

программа просто закрывается??? она ошибку должна выкидывать, прочитайте что там пишет.
Да, и вообще,

procedure TForm1.lbl4Click(Sender: TObject);
.............................

как я понял, lbl4 типа TLabel ? Т.е вы кликаете на кликаете на лейбл чтобы поделить числа? обычно для этого кнопки используют.

[Ivanacats]

В edit1 я ввожу число, в edit2 ввожу 0, нажимаю разделить, а в Lbl4 должно появиться сообщение Error

[kventin_zhuk]

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

В edit1 я ввожу число, в edit2 ввожу 0, нажимаю разделить, а в Lbl4 должно появиться сообщение Error

procedure TForm1.lbl4Click(Sender: TObject);

begin
if b = 0 then Lbl4.Caption: = 'Error!!!'
else c:=a/b;

end;

end.

Это тот код, что вы скинули. Судя по вашему коду по нажатию на lbl4 проверяется b=0, и если это так - в lbl4 выводится сообщение об ошибке.

[Ivanacats]

и опять же ошибка, я переделала программу, сделала проще, но опять же как здесь написать так, чтобы в lbl3 выводилось сообщение об ошибке при делении на ноль?

var
Form1: TForm1;
b:Real;
s:string;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
a,c:Real;
code1,code2:Integer;
ss:string;
begin
Val(edt1.Text,a,code1) ;
val(edt2.text,c,code2) ;
ss:='Ошибка! Правильно введите данные';
if (code1+code2)=0 then
begin
b:=a+c;
Str(b:10:4,s);
lbl3.Caption:=s;
end
else lbl3.Caption:=ss;

end;


procedure TForm1.btn5Click(Sender: TObject);
begin
b:=0;
Str(b:-10:4,s);
lbl3.Caption:=s;
end;

procedure TForm1.btn2Click(Sender: TObject);
var a,c:real;
code1,code2:Integer;
ss:string;
begin
Val(edt1.Text,a,code1) ;
val(edt2.text,c,code2) ;
ss:='Ошибка! Правильно введите данные';
if (code1-code2)=0 then
begin
b:=a-c;
Str(b:10:4,s);
lbl3.Caption:=s;
end
else lbl3.Caption:=ss;
end;
procedure TForm1.btn3Click(Sender: TObject);
var a,c:real;
code1,code2:Integer;
ss:string;
begin
Val(edt1.Text,a,code1) ;
val(edt2.text,c,code2) ;
ss:='Ошибка! Правильно введите данные';
if (code1-code2)=0 then
begin
b:=a*c;
Str(b:10:4,s);
lbl3.Caption:=s;
end
else lbl3.Caption:=ss;
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[kventin_zhuk]

Уфф, давайте так. Добавьте в архив сваю папочку с проектом, со всеми файлами внутри, гляну. А то глядя на ваш код

Который не мешало бы оформлять вот так

Все расплывается и не понятно что куда)