Delphi 捕获代码抛出的异常信息
try
//业务代码
except
on e:exception do
begin
application.MessageBox(pchar(e.ClassName), '错误类型', 0);
application.MessageBox(pchar(e.Message), '错误信息', 0);
end;
end;
Delphi 捕获代码抛出的异常信息
try
//业务代码
except
on e:exception do
begin
application.MessageBox(pchar(e.ClassName), '错误类型', 0);
application.MessageBox(pchar(e.Message), '错误信息', 0);
end;
end;