您的位置:首页 > 其它

PL/0语言编译程序整理实现:(10)、错误处理

2010-12-15 09:25 731 查看
unit uError;

interface

uses
SysUtils;

type
TError = class
public
procedure ReportError(const AMsg: string);
end;

implementation

procedure TError.ReportError(const AMsg: string);
begin
raise Exception.Create(AMsg);
end;

end.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐