浏览代码

* Add CreateFmt constructor for EInOutArgumentException

(cherry picked from commit 2d3cd5bff23135509f0dac4fa89045364491a61b)
Michaël Van Canneyt 1 年之前
父节点
当前提交
10c3ff6801
共有 2 个文件被更改,包括 8 次插入0 次删除
  1. 1 0
      rtl/objpas/sysutils/sysutilh.inc
  2. 7 0
      rtl/objpas/sysutils/sysutils.inc

+ 1 - 0
rtl/objpas/sysutils/sysutilh.inc

@@ -241,6 +241,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 - 0
rtl/objpas/sysutils/sysutils.inc

@@ -314,6 +314,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