Скачать: CL | DM;

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

← →
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;

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

---

← →
Ega23 ©   (2005-05-25 11:22) [4]

Application.OnException заменить

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c