Exception

← →
Masa (2003-12-23 14:56) [0]

Как можно получить имея Exception имя компонента которое вызвало E. Спасибо.

← →
Карелин Артем © (2003-12-23 14:59) [1]

procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := AppException; end; procedure TForm1.AppException(Sender: TObject; E: Exception); begin if Sender is TComponent then ShowMessage((Sender as TComponent).Name); end;

← →
Masa (2003-12-23 15:11) [2]

procedure TfrmMain.ToolButton4Click(Sender: TObject);
begin
Query1.SQL.Text := "SELECT bla-bla";
Query1.Open;
end;

Показывает имя ToolBar`a.... непонятно чего !?

← →
Тимохов © (2003-12-23 15:13) [3]

Уважаемый.
Прочти 2 еще раз - скажи можно тут понять о чем ты спрашиваешь?

← →
Карелин Артем © (2003-12-23 15:13) [4]

Ну такой вот он непонятный. Работает с половиной компонентов.

← →
Карелин Артем © (2003-12-23 15:14) [5]

Тимохов © (23.12.03 15:13) [3]
Sapienti Sat. Он намекает на известный пример из хелпа.

← →
Dimka Maslov © (2003-12-23 15:19) [6]

Исключение генерируется не компонентом, и получить "имя компонента которое вызвало E" нельзя. Можно получить лишь имя объекта, в оконной функции которого это исключение было поймано. Именно указатель на этот объект и передаётся в Application.OnException

← →
Masa (2003-12-23 15:23) [7]

Понятно. Спасибо.

← →
MV (2003-12-23 15:50) [8]

Как есть - нельзя :(
В одном из журналов RSDN была статья, обсуждалась проблема и кое-что даже придумали...

Ну... Если нельзя, но очень хочется, то можно. Нужны лишь генерируемый компилятором map-файл и средства трассировки стека исключений из JCL.

Exception Найти похожие ветки