Changeset 292 for trunk/UGameSystem.pas

Timestamp:

Mar 28, 2019, 5:34:35 PM (6 years ago)

Author:

chronos

Message:

• Modified: Load game systems from files in Systems subdirectory on application start. Do not initialize game systems statically from code.

File:

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

trunk/UGameSystem.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, fgl, UUnit, DOM, XMLRead, XMLWrite, UXMLUtils, XMLConf,
-  FileUtil, UMapType, UNation, UBuilding;
+  FileUtil, LazFileUtils, UMapType, UNation, UBuilding;
 
 type
@@ -42 +42 @@
     function AddNew(Name: string): TGameSystem;
     function SearchByName(Name: string): TGameSystem;
+    procedure LoadFromDir(Dir: string);
   end;
 
@@ -73 +74 @@
   if I < Count then Result := Items[I]
     else Result := nil;
+end;
+
+procedure TGameSystems.LoadFromDir(Dir: string);
+var
+  Files: TStringList;
+  I: Integer;
+  NewItem: TGameSystem;
+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;
 end;