关于错误的问题：

Question

各位大虾：谁能够告诉我怎么样才能把错误码以及错误原因内容，取出来放到变量中。
   如
     try
     
     except
       //在这里把错误码及错误内容取出放到变量中。
     end;
   举例说明。谢谢！！

Answer 1

var
  e:exception;
try
  ……
except
  lcode:=E.Errors[0].ErrorCode//错误码
  lmsg:=E.Errors[0].message //错误内容
end;    

Answer 2

你先可以用showmessage()来显示看看，一般错误内容都可以用他显示！
至于错误码有相关书籍介绍！DELPHI编译是出现错误时就有错误代码！
有问题请发信息到我的E-mail:[email protected]

Answer 3

就是“guestman(天涯浪子) ( ) ”的答案

Answer 4

var
  ErrorID: integer; 
  ErrorMsg: string;
     try
     
     except
       //在这里把错误码及错误内容取出放到变量中。
       ErrorID:= GetLastError;
       on E: Exception do
         ErrorMsg:= E.message;
     end;

Answer 5

var
  ErrorID: Integer;
  ErrorMsg: string;
begin
  try
    ...
  except
    on E: Exception do
    begin
      ErrorID := GetLastError;
      ErrorMsg := E.Message;
    end;
  end;
end;

Answer 6

Try something like this.var
 errMsg:String;.....
try
 query1.execsql;
except
 on e:exception dp
    errMsg := e.Message;
end;or for Windows Error Messages;try
 RaiseLastWin32Error;
except
 on e:EWin32Error do
   errMsg := e.Message;
end;