Browse Source

fix ChangeInvalidFileNameChars

KngStr 1 year ago
parent
commit
dd3c7a5c3a
1 changed files with 2 additions and 3 deletions
  1. 2 3
      Source/ksString.pas

+ 2 - 3
Source/ksString.pas

@@ -167,9 +167,8 @@ begin
     Ch := PFileName[I];
 
     if not TPath.IsValidFileNameChar(Ch) then
-      PFileName[I] := AChar
-    else
-      Inc(I);
+      PFileName[I] := AChar;
+    Inc(I);
   end;
 end;