Changeset 112 for trunk/Components/Directories.pas

Timestamp:

Feb 2, 2018, 5:03:28 PM (6 years ago)

Author:

chronos

Message:

• Modified: Code formatting corrections.

File:

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

trunk/Components/Directories.pas

@@ -16 +16 @@
 uses
   FileUtil, LCLIntf, LCLType, LCLProc, LazUTF8, SysUtils;
-
-var
-  AppDataDir: string;
-  src, dst: TSearchRec;
-
-
-function DirectoryExists(path: string): boolean;
-var
-  f: TSearchRec;
-begin
-  result := FindFirst(path, faDirectory, f) = 0;
-  FindClose(f);
-end;
 
 function GetLocale: string;
@@ -70 +57 @@
 
 procedure InitUnit;
+var
+  AppDataDir: string;
+  src, dst: TSearchRec;
 begin
   LocaleCode := '';