如何得知当前出错的错误代码及信息?

Question

Delphi的出错的错误代码及信息都会在调试运行时出现在

Answer 1

获取代码及信息如象VB那么方便就好了.如VB可以这样做ERR.CODE就能返回错误代码.

Answer 2

可以用捕捉到的E的类型来判断.另外有一些错误是可以(不包括BDE和后台数据库错误)直接修改为中文提示的.一是修改DEPHI提供的SOURCE,二是用多语种的方法.

Answer 3

用GETLASTERROR这个API函数可以捕捉到非数据库的错误，然后就可以处理了：)

Answer 4

使用以下函数来获得Win32错误信息
function GetWin32Message:string ;
var
  PTemp:pchar;
begin
//  ptemp:=AllocMem(1024);
  GetMem(Ptemp,1024);
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM,
          nil,GetLastError,0,Ptemp,1024,nil);
  Result:=Ptemp;
  FreeMem(PTemp,1024);
end;

Answer 5

呵呵，不用这么麻烦，直接用showmessage(SysErrorMessage(GetLastError))就可以取得中文的错误消息！