procedure raiseException();
begin
raise Exception.Create('抛出异常');
end;
procedure catchException();
begin
try
raiseException();
except
ShowMessage('发生异常');
end;
end;
Delphi 异常抛出与捕获
最新推荐文章于 2021-11-16 14:46:46 发布
procedure raiseException();
begin
raise Exception.Create('抛出异常');
end;
procedure catchException();
begin
try
raiseException();
except
ShowMessage('发生异常');
end;
end;