Перехват ошибок

← →
r13 (2005-05-25 11:00) [0]

В программе происходит ошибка, а я хочу записать в файл, что это была за ошибка, например, 25.05.2005 13:40:31 Unknown picture file extension (.jpg).
я это делаю так
...
try
<код, вызвавший ошибку>
except
reportproc;
end;

procedure reportproc;
begin
<Запись ошибки в файл>
end;

Но вот, к сожалению не знаю, как узнать, какая ошибка с помощью Exception. Помогите, что делать!

← →
Гаврила © (2005-05-25 11:02) [1]

try
...
except
on E: Exception do
Запись в файл (e.Message, E.ClassName)
end

← →
-=XP=- © (2005-05-25 11:06) [2]

procedure SaveExceptionInfo(const E: Exception);
begin
// Использование информации из E
end;

...

try
// Глюкокод
except
on E: Exception do SaveExceptionInfo(E);
raise;
end;

← →
-=XP=- © (2005-05-25 11:07) [3]

Дополнение к [2]

procedure SaveExceptionInfo(const E: Exception);
begin
try
// Использование информации из E
except
end;
end;

А то можно вообще вылететь с треском.

Application.OnException заменить

Перехват ошибок Найти похожие ветки