калькулятор программиста

Ответ от Дима[гуру]
а не проще проверить значение b на равенство 0....и ттгда выводить ошибку... и не делить.. .
а в твоем случае.. . ошибку при делении на 0 выдает. . переменная с - неопределенное значение.. . а ты пытешься это значение в едит3 поместить.
так сделай и заработает :
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c: extended;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
try
c:=a/b ;
Edit3.Text:=floattostr(c);
except
on EZeroDivide do
ShowMessage('Число не должно быть равно ='+floattostr(b));
end;
end;

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]