Changeset 6 for trunk/Directories.pas

Timestamp:

Jan 7, 2017, 11:32:14 AM (7 years ago)

Author:

chronos

Message:

• Modified: Formated all project source files using Delphi formatter as original indentation and other formatting was really bad.

File:

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

trunk/Directories.pas

@@ -1 +1 @@
 {$INCLUDE switches}
-
 unit Directories;
 
@@ -6 +5 @@
 
 var
-HomeDir, DataDir: string;
+  HomeDir, DataDir: string;
 
 function LocalizedFilePath(path: string): string;
-
 
 implementation
 
 uses
-ShlObj,Windows,SysUtils;
+  ShlObj, Windows, SysUtils;
 
 function GetSpecialDirectory(const CSIDL: integer): string;
 var
-RecPath: PChar;
+  RecPath: PChar;
 begin
-RecPath:=StrAlloc(MAX_PATH);
-try
-  FillChar(RecPath^, MAX_PATH, 0);
-  if SHGetSpecialFolderPath(0, RecPath, CSIDL, false) then
-    result:=RecPath
-  else result:='';
-finally
-  StrDispose(RecPath);
+  RecPath := StrAlloc(MAX_PATH);
+  try
+    FillChar(RecPath^, MAX_PATH, 0);
+    if SHGetSpecialFolderPath(0, RecPath, CSIDL, false) then
+      result := RecPath
+    else
+      result := '';
+  finally
+    StrDispose(RecPath);
   end
 end;
@@ -33 +32 @@
 function DirectoryExists(path: string): boolean;
 var
-f: TSearchRec;
+  f: TSearchRec;
 begin
-result:=FindFirst(path,faDirectory,f)=0;
+  result := FindFirst(path, faDirectory, f) = 0;
 end;
 
 function LocalizedFilePath(path: string): string;
 begin
-result:=DataDir+'Localization\'+path;
-if not FileExists(result) then
-  result:=HomeDir+path
+  result := DataDir + 'Localization\' + path;
+  if not FileExists(result) then
+    result := HomeDir + path
 end;
 
-
 var
-AppDataDir: string;
-src,dst: TSearchRec;
+  AppDataDir: string;
+  src, dst: TSearchRec;
 
 initialization
-HomeDir:=ExtractFilePath(ParamStr(0));
 
+HomeDir := ExtractFilePath(ParamStr(0));
 
-AppDataDir:=GetSpecialDirectory(CSIDL_APPDATA);
-if AppDataDir='' then
-  DataDir:=HomeDir
+AppDataDir := GetSpecialDirectory(CSIDL_APPDATA);
+if AppDataDir = '' then
+  DataDir := HomeDir
 else
-  begin
-  if not DirectoryExists(AppDataDir+'\C-evo') then
-    CreateDir(AppDataDir+'\C-evo');
-  DataDir:=AppDataDir+'\C-evo\';
-  end;
-if not DirectoryExists(DataDir+'Saved') then
-  CreateDir(DataDir+'Saved');
-if not DirectoryExists(DataDir+'Maps') then
-  CreateDir(DataDir+'Maps');
+begin
+  if not DirectoryExists(AppDataDir + '\C-evo') then
+    CreateDir(AppDataDir + '\C-evo');
+  DataDir := AppDataDir + '\C-evo\';
+end;
+if not DirectoryExists(DataDir + 'Saved') then
+  CreateDir(DataDir + 'Saved');
+if not DirectoryExists(DataDir + 'Maps') then
+  CreateDir(DataDir + 'Maps');
 
 // copy appdata if not done yet
-if FindFirst(HomeDir+'AppData\Saved\*.cevo',$21,src)=0 then
+if FindFirst(HomeDir + 'AppData\Saved\*.cevo', $21, src) = 0 then
   repeat
-    if (FindFirst(DataDir+'Saved\'+src.Name,$21,dst)<>0)
-      or (dst.Time<src.Time) then
-      CopyFile(PChar(HomeDir+'AppData\Saved\'+src.Name),
-        PChar(DataDir+'Saved\'+src.Name),false);
-  until FindNext(src)<>0;
+    if (FindFirst(DataDir + 'Saved\' + src.Name, $21, dst) <> 0) or
+      (dst.Time < src.Time) then
+      CopyFile(PChar(HomeDir + 'AppData\Saved\' + src.Name),
+        PChar(DataDir + 'Saved\' + src.Name), false);
+  until FindNext(src) <> 0;
+
 end.