Changeset 112 for trunk/Components
- Timestamp:
- Feb 2, 2018, 5:03:28 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Components/Directories.pas
r111 r112 16 16 uses 17 17 FileUtil, LCLIntf, LCLType, LCLProc, LazUTF8, SysUtils; 18 19 var20 AppDataDir: string;21 src, dst: TSearchRec;22 23 24 function DirectoryExists(path: string): boolean;25 var26 f: TSearchRec;27 begin28 result := FindFirst(path, faDirectory, f) = 0;29 FindClose(f);30 end;31 18 32 19 function GetLocale: string; … … 70 57 71 58 procedure InitUnit; 59 var 60 AppDataDir: string; 61 src, dst: TSearchRec; 72 62 begin 73 63 LocaleCode := '';
Note:
See TracChangeset
for help on using the changeset viewer.