5,392
社区成员
发帖
与我相关
我的任务
分享
procedure Business;
var
Log:IAppLog;
begin
Log:=TAppLog.Create;
try
try
LogItem('begin A');
businessA;
LogItem('end A');
LogItem('begin B');
businessB
LogItem('End B')
except
on e:Exception do
begin
LogItem('exception raise-'+E.Message)
end;
finally
Log:=nil;
end;
end;
end;
procedure businessA
begin
try
//A
except
//向上层抛异常信息
end;
end;
procedure businessB
begin
try
//B
except
//向上层抛异常信息
end;
end;