Обработка исключений

[Ckomoroh]

У меня есть программа, которая иногда работает неправильно и выдает ошибку Invalid floating operation.

Есть ли способы кроме try except end; в случае возникновения этой ошибки выполнить некие действия и так, чтобы пользователь не узнал о возникновении ошибки как таковой (т.е. окошка с ошибкой у него не возникло)?

P.S. Просто уже даже каждую строчку кода заключал в конструкцию try except end;, но это не помогло

[MyLastHit]

Tools-Debugger Options-Language Exception и сними галку со Stop on Delphi Exception
Тогда делфи будет игнорировать ошибки в куске

try

except

end;

И не будет перебрасывать тебя в отладку.

[chertovich]

Кроме непосредственной обработки исключения, есть еще один подход, проверять правильность чего-либо и в случае успеха, делать что-то, иначе ничего.
Например, строку можно проверить на наличие неподходящих символов.

[Ckomoroh]

MyLastHit, я уже писал что пробовал.
Каждую строчку кода в эту конструкцию пихнул, так что если ошибка возникнет в этом месте выводилось бы сообщение с номером строки кода, но почему-то программа вылетала и компилятор останавливался на процедуре вообще не связанной с вычислениями (процедуре рисования).

Слышал что можно создать какой-то класс ошибок и через него управлять, но нормальной информации в гугле по перехвату ошибок таким способом не нашел.

[chertovich]

Компонент TApplicationEvents, событие OnException

[GunSmoker]

Поставь EurekaLog или madExcept. И никогда больше так не делай:

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

P.S. Просто уже даже каждую строчку кода заключал в конструкцию try except end;, но это не помогло

А то найду и заставлю пять лет чистить картошку на подводной лодке.

[irt]

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

в случае возникновения этой ошибки выполнить некие действия и так, чтобы пользователь не узнал о возникновении ошибки как таковой (т.е. окошка с ошибкой у него не возникло)?

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExcept;
end;

Procedure TForm1.MyExcept(Sender:TObject; E:Exception);
begin
{код в случае исключения}
end;