Калькулятор

[ViNcHeStEr]

Всем привет! Как сделать так чтобы в программе была проверка на ошибки? Сделал так, но в процессе компиляции Дельфи показывает что ошибка. Пример: если деление на ноль, то подсвечивается "e3:=el/e2;", если введена не цифра, а буква, то тоже ошибка. Как этого избежать?

procedure TForm1.Button8Click(Sender: TObject);
var el,e2,e3:extended;
begin  try
el:=strtofloat(Edit1.text);
e2:=strtofloat(Edit2.text);
e3:=el/e2;
Edit3.Text:=floattostr(e3);
except
edit3.Text:='Деление на ноль'; end;
end;

[_Dmitry]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  el,e2,e3: extended;
begin
  try
    el:=strtofloat(Edit1.text);
    e2:=strtofloat(Edit2.text);
    e3:=el/e2;
    Edit3.Text:=floattostr(e3);
  except
    on EZeroDivide do edit3.Text:='Деление на ноль';
    on EConvertError do edit3.Text:='Введено не число';
  else
    edit3.Text:='Неизвестная ошибка';
  end;
end;

[ViNcHeStEr]

Надо чтобы программа в процессе компиляции не вылетала. Даже если идёт деление на ноль.

Просто когда запускаешь ЕХЕшник из папки, то всё нормально, а когда компилируешь, то вылетает.

[Arigato]

F9 - продолжить выполнение. В готовом EXE все будет нормально.

[_Dmitry]

Или отключить дельфийский обработчик исключений:
Tools->Debuger options...->Language Exceptions->Stop on Delphi Exceptions

[ViNcHeStEr]

Спасибо! А то преподаватель работу не принимал, т.к. она в Дельфи вылетала. Теперь всё норм!