fcl-db: sqldb: Make ESQLDatabaseError.CreateFmt more safe if it is called with Args=[] (then do not try Format(Msg,Args))

git-svn-id: trunk@29169 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -757,7 +757,11 @@ begin
   else
     Msg := Format(CompNameFmt, [Comp.Name,Fmt]);
 
-  inherited CreateFmt(Msg, Args);
+  if Length(Args) = 0 then
+    inherited Create(Msg)
+  else
+    inherited CreateFmt(Msg, Args);
+
   ErrorCode := AErrorCode;
   SQLState  := ASQLState;
 end;