关于求错误码的问题（急）。

Question

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

Answer 1

try
 {staticment}
except
 on EzeroDivide do   ;
 on EInOutError do   ;
end;

Answer 2

try
     ---------------     except
       SaveMessage:=SaveMessage+' '+e.Message; //记录异常原因
     end;

Answer 3

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

Answer 4

楼上几位似乎把楼主的问题理解错了，
这个问题要具体情况具体分析，要看你遇到的异常(准确的说是“错误”）属于
哪一种，一般
运行期错误分两种情况：
异常和调用WIN32 API失败。
前者才是DELHPI所谓的“异常”，后者只能叫“错误”
由于加入到DELPHI环境中的每个组件都有自己的一套错误信息，
只有预见可能会触发的异常，再用on E:ESomeException do进行判断。
调用WIN32 API出错时，可以调用GetLastError()函数来获取错误代码，由于这个
函数的返回值是个DWORD类型，所以很难知道实际发生了什么情况，
你只能查相关手册了，呵呵，如果你一定要知道，就只有用数据库了。