Changeset 130 for trunk/UCity.pas

Timestamp:

May 1, 2023, 4:02:31 PM (13 months ago)

Author:

chronos

Message:

• Added: Allow to save/load game in multiple slots.

File:

• trunk/UCity.pas (modified) (2 diffs)

trunk/UCity.pas

@@ -28 +28 @@
 
   TCities = class(TObjectList<TCity>)
+    function SearchBySysName(SysName: string): TCity;
     function AddNew(SysName, Name: string; Population: Integer): TCity;
     procedure LoadFromRegistry(Context: TRegistryContext);
@@ -81 +82 @@
 { TCities }
 
+function TCities.SearchBySysName(SysName: string): TCity;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (Items[I].SysName <> SysName) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
+end;
+
 function TCities.AddNew(SysName, Name: string; Population: Integer): TCity;
 begin