Changeset 105 for trunk/Directories.pas
- Timestamp:
- Jan 25, 2018, 11:33:52 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Directories.pas
r79 r105 27 27 begin 28 28 result := FindFirst(path, faDirectory, f) = 0; 29 FindClose(f); 29 30 end; 30 31 … … 94 95 CopyFile(PChar(HomeDir + 'AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + src.Name), 95 96 PChar(DataDir + 'Saved' + DirectorySeparator + src.Name), false); 97 FindClose(dst); 96 98 until FindNext(src) <> 0; 99 FindClose(src); 97 100 end; 98 101 … … 101 104 InitUnit; 102 105 106 103 107 end.
Note:
See TracChangeset
for help on using the changeset viewer.