* Patch to avoid error when trying to create empty directory

git-svn-id: trunk@24240 -

packages/fcl-base/src/inifiles.pp

@@ -951,6 +951,7 @@ begin
     if FFileName > '' then
       begin
       D:=ExtractFilePath(FFileName);
+      If D <> '' Then
         if not ForceDirectories(D) then
           Raise EInoutError.CreateFmt(SErrCouldNotCreatePath,[D]);
       slLines.SaveToFile(FFileName);