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.
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.