Здравствуйте. Подскажите пожалуйста! Хочу сделать человеческие ошибки в своем приложении. На русском...
Значит пишу:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyExcept;
end;
Procedure TForm1.MyExcept(Sender:TObject; E:Exception);
begin
MessageDlg('Ошибка: '+#13+e.Message , mtInformation, [mbOk], 0);
end;
Получаю текст ошибки на английском... А хочу сделать ошибки свои.. например вот так:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyExcept;
end;
Procedure TForm1.MyExcept(Sender:TObject; E:Exception);
begin
if код ошибки then showmessage ('Ошибка такаята');
if код ошибки then showmessage ('Ошибка такаята2');
end;
Как мне получить код ошибки?