在Delphi里如何获取错误

Question

try
except
  on E: Exception do ErrorDialog(E.Message, E.HelpContext);
end;

Answer 1

try
except
  on E: Exception do ErrorDialog(E.Message, E.HelpContext);
end;

Answer 2

try
except
  on e:exception do errordialog;
end;
楼上回答的很对！

Answer 3

try
.
.
.
.
.
..
except

Answer 4

看一本Delphi编程入门的书吧，里面应该有异常处理的内容的。try
  正常语句
except
  on 异常类1 do 处理第一种异常;
  on 异常类2 do 处理第二种异常;
  on 异常类n do 处理第n种异常;
end;如果需要用到异常的内容，需要在异常类前加一个 变量名和冒号，然后利用变量来存取异常的内容。如：on  E:  Exception  do  // 生成了一个类型为Exception名称为E的对象变量
  ShowMessage( '发生了异常: '+E.Message ); // E.Message是类Exception的一个属性

Answer 5

Application.OnException  :=  AppExcept; //  程序所有的异常处理； 
procedure  TMainForm.AppExcept(Sender:  TObject;  E:  Exception); 
var 
    sMsg:  string; 
begin 
    sMsg  :=  '应用程序出错！'; 
    if  E  is  EDatabaseError  then 
        sMsg  :=  '数据库操作失败！';     Application.MessageBox(PChar(sMsg),'信息',MB_ICONERROR); 
end;