Changeset 105 for trunk/Directories.pas

Timestamp:

Jan 25, 2018, 11:33:52 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Various memory leaks.

File:

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

trunk/Directories.pas

@@ -27 +27 @@
 begin
   result := FindFirst(path, faDirectory, f) = 0;
+  FindClose(f);
 end;
 
@@ -94 +95 @@
         CopyFile(PChar(HomeDir + 'AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + src.Name),
           PChar(DataDir + 'Saved' + DirectorySeparator + src.Name), false);
+      FindClose(dst);
     until FindNext(src) <> 0;
+  FindClose(src);
 end;
 
@@ -101 +104 @@
 InitUnit;
 
+
 end.