paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add CreateFmt constructor for EInOutArgumentException

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-20 21:45:47 +01:00
parent 98ef2773e0
commit 2d3cd5bff2
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/sysutils/sysutilh.inc
View File

@ -251,6 +251,7 @@ type
Path: string;
constructor Create(const aMsg, aPath: string); overload;
constructor CreateRes(ResStringRec: PResStringRec; const aPath: string); overload;
constructor CreateFmt(const fmt : string; const args : array of const; const aPath : String); overload;
end;
EInvalidOpException = class(Exception);

7
rtl/objpas/sysutils/sysutils.inc
View File

@ -320,6 +320,13 @@ begin
Inherited CreateRes(ResStringRec);
end;
constructor EInOutArgumentException.CreateFmt(const fmt: string; const args : array of const; const aPath : String);
begin
Path:=aPath;
inherited CreateFmt(fmt,args);
end;
{$if defined(win32) or defined(win64) or defined (wince)}
function EExternal.GetExceptionRecord: PExceptionRecord;
begin