关于异常处理的,sos

Question

1   try
2    Datamodel.DataModule1.connSql.Execute(s);
    
3  except
4    on  e: exception  do
5    begin
6       application.MessageBox(PAnsiChar(e),'提示');
7    end;
执行了第2句,但就是得不到异常,总是运行时报错,而没有捕获到异常,请问如何得到

Answer 1

try
  Datamodel.DataModule1.connSql.Execute(s);
except
  ShowMessage('error')
end;

Answer 2

1   try
2    Datamodel.DataModule1.connSql.Execute(s);
    
3  except
4    on  e: exception  do
5    begin
6       on E:Exception do Application.messagebox(pchar(E.Message),'系统提示',MB_IconInformation);
7    end;

Answer 3

关键这句：on E:Exception do Application.messagebox(pchar(E.Message),'系统提示',MB_IconInformation);

Answer 4

try
  Datamodel.DataModule1.connSql.Execute(s);
except
  showmessage(e.message);
end;