Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Код ошибки [D7, Win2k]


cautur ©   (2005-03-15 11:01:00) 

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

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


cautur   (2005-03-15 12:01:00) [1]

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

Exception.CreateHelp

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


Anatoly Podgoretsky   (2005-03-15 11:54:00) [2]

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

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


cautur   (2005-03-15 11:32:00) [3]

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

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. Вот в чем проблема у меня


Erik1   (2005-03-15 11:20:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо