Код ошибки

← →
cautur © (2005-03-15 11:01) [0]

Добрый день, господа.

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

← →
Erik1 © (2005-03-15 11:20) [1]

Ничего непонятно. SysErrorMessage(GetLastError()) - это описание ошибки.
GetLastError() - соответствено ее код.
Если реч идет о delphi exception то:
E.Message - собщение
E.HelpContext - ее код.

← →
cautur © (2005-03-15 11:32) [2]

У меня следующая конструкция

Application.OnException:=Form1.MyHandler;

procedure TForm1.MyHandler(Sender: TObject; E: Exception);
begin
Application.CreateForm(TForm1, Form1);
Form1.Memo1.Lines.Add(E.Message);
Form1.ShowModal;
end;

Я пробывал выводить и GetLastError() и E.HelpContext
Выводится 0. Вот в чем проблема у меня

← →
Anatoly Podgoretsky © (2005-03-15 11:54) [3]

Ни о каком коде и речи быть не может, ну где тут код
Exception.Create("Моя ошибка");

Читаем внимательно справку.

Так бы и сказали использовать

Exception.CreateHelp

Ладно спасибо за помощь)

Код ошибки Найти похожие ветки