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

Как узнать какой компонент породил Exception?   Найти похожие ветки 

← →
NeyroSpace ©   (2002-11-05 14:00) [0]

Происходит централизованая обработка исключений:
procedure TMainForm.ProcessException(Sender: TObject; E: Exception);
begin
...
end;

Есть динамически создающийся компонент
Query := TIBQuery.Create(Self);
...
Query.SQL.Text=...
...
Query.Free;
В нем при выполнении запроса происходит исключение. Как из процедуры ProcessException() добраться до Query.SQL.Text?
При исключение Sender имеет класс TPanel...(?!)
Или Query к моменту обработки исключения уже разрушен?

---

← →
NeyroSpace ©   (2002-11-05 17:27) [1]

Никто не знает?

---

← →
Smithson ©   (2002-11-05 17:29) [2]

Texception + F1

---

← →
Digitman ©   (2002-11-05 17:35) [3]

try
.. чего-то там ...
except
on e: exception do
begin
ShowMessage(e.ClassName + #10 + e.message);
raise;
end;
end;

---

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

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



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