Home Explore Help
Sign In
KngStr
/
KsLibs
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

minior tweak

KngStr 4 years ago
parent
1c4aa297a5
commit
9ad1e7ca04
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      Source/ksString.pas

+ 1 - 1
Source/ksString.pas
View File 

@@ -100,7 +100,7 @@ begin
 
   I := 0;

   I := 0;

   sPath := ChangeFileExt(Result, '');

   sPath := ChangeFileExt(Result, '');

   sExt := ExtractFileExt(Result);

   sExt := ExtractFileExt(Result);

-  while FileExists(Result) do begin

+  while FileExists(Result) or DirectoryExists(Result) do begin

     Inc(I);

     Inc(I);

     Result := Format('%s(%d)%s', [sPath, I, sExt]);

     Result := Format('%s(%d)%s', [sPath, I, sExt]);

   end;

   end;