Changeset 20 for trunk/Directories.pas

Timestamp:

Jan 8, 2017, 12:23:55 PM (7 years ago)

Author:

chronos

Message:

• Fixed: More linux platform fixes.
• Fixed: Use correct DirectorySeparator.

File:

• trunk/Directories.pas (modified) (2 diffs)

trunk/Directories.pas

@@ -28 +28 @@
 function LocalizedFilePath(path: string): string;
 begin
-  result := DataDir + 'Localization\' + path;
+  result := DataDir + 'Localization' + DirectorySeparator + path;
   if not FileExists(result) then
     result := HomeDir + path
@@ -52 +52 @@
 
   // Copy appdata if not done yet
-  if FindFirst(HomeDir + 'AppData\Saved\*.cevo', $21, src) = 0 then
+  if FindFirst(HomeDir + 'AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + '*.cevo', $21, src) = 0 then
     repeat
-      if (FindFirst(DataDir + 'Saved\' + src.Name, $21, dst) <> 0) or
+      if (FindFirst(DataDir + 'Saved' + DirectorySeparator + src.Name, $21, dst) <> 0) or
         (dst.Time < src.Time) then
-        CopyFile(PChar(HomeDir + 'AppData\Saved\' + src.Name),
-          PChar(DataDir + 'Saved\' + src.Name), false);
+        CopyFile(PChar(HomeDir + 'AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + src.Name),
+          PChar(DataDir + 'Saved' + DirectorySeparator + src.Name), false);
     until FindNext(src) <> 0;
 end;