参考:业务模型\系统空间\系统运行库\系统核心库
except
on E: object do
begin
if FNotifiedFuncs.IndexOf(Func) = -1 then
begin
if not Force and not JSDialogs.ConfirmBox(SysUtils.Format(ErrMsg02, [
GetFuncDisplayText(Func),
TSystemCore.SystemInterface.GetExceptionText(E)]),
'', 2) then
begin
Result := False;
Exit;
end;
InternalFuncTerminateNotify(Func, True);
end;
if Force then raise;
end;
end;