Update p.pas

Mzying2001 · Feb 6, 2023 · ce11ab3 · ce11ab3
1 parent 5a80e00
commit ce11ab3
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/p.pas b/src/p.pas
@@ -93,7 +93,7 @@ procedure CreateDirOfFile(filePath: string);
   dir: string;
 begin
   for i := 0 to Length(filePath) - 1 do
-    if filePath[i] = '\' then
+    if (filePath[i] = '\') or (filePath[i] = '/') then
     begin
       dir := filePath.Substring(0, i);
       if not DirectoryExists(dir) then
@@ -169,8 +169,7 @@ function Unpak(inputPath: string; outputPath: string): boolean;
     exit;
   end;
 
-  outputPath := outputPath.Replace('/', '\');
-  if not outputPath.EndsWith('\') then
+  if not (outputPath.EndsWith('\') or outputPath.EndsWith('/')) then
     outputPath := outputPath + '\';
 
   try
@@ -288,8 +287,7 @@ function Pak(inputPath: string; outputPath: string): boolean;
     exit;
   end;
 
-  inputPath := inputPath.Replace('/', '\');
-  if not inputPath.EndsWith('\') then
+  if not (inputPath.EndsWith('\') or inputPath.EndsWith('/')) then
     inputPath := inputPath + '\';
 
   try