Changeset 318 for trunk/GameSystem.pas

Timestamp:

Jun 21, 2024, 3:20:20 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/GameSystem.pas (modified) (1 diff)

trunk/GameSystem.pas

@@ -81 +81 @@
 begin
   Files := TStringList.Create;
-  FindAllFiles(Files, Dir, '*' + GameSystemExt, True, faAnyFile);
-  for I := 0 to Files.Count - 1 do begin
-    NewItem := TGameSystem.Create;
-    NewItem.LoadFromFile(Files[I]);
-    Add(NewItem);
-  end;
-  Files.Free;
+  try
+    FindAllFiles(Files, Dir, '*' + GameSystemExt, True, faAnyFile);
+    for I := 0 to Files.Count - 1 do begin
+      NewItem := TGameSystem.Create;
+      NewItem.LoadFromFile(Files[I]);
+      Add(NewItem);
+    end;
+  finally
+    Files.Free;
+  end;
 end;