异常
type
EPCIDError = class(Exception)
public
constructor Create(const Msg: string);
end;
constructor EPCIDError.Create(const Msg: string);
begin
inherited Create(CPCIDError + Msg + ' - ' + SysErrorMessage(GetLastError));
end;
type
EPCIDError = class(Exception)
public
constructor Create(const Msg: string);
end;
constructor EPCIDError.Create(const Msg: string);
begin
inherited Create(CPCIDError + Msg + ' - ' + SysErrorMessage(GetLastError));
end;