Автор Ёупер Мен задал вопрос в разделе Другие языки и технологии
Delphi (Калькулятор) программисты помогайте =)) и получил лучший ответ
Ответ от Никита Брейкин[гуру]
А можно и так:
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c: extended;
begin
a:=strtofloat(Edit1.Text);
b:=strtofloat(Edit2.Text);
if (b <> 0) then
begin
c:=a/b ;
Edit3.Text:=floattostr(c);
end
else
end;
Ответ от Дима[гуру]
а не проще проверить значение 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;
а не проще проверить значение 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;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Delphi (Калькулятор) программисты помогайте =))