Changeset 128 for trunk/UMetroPassenger.pas

Timestamp:

May 1, 2023, 11:21:30 AM (12 months ago)

Author:

chronos

Message:

• Added: Ability to save and load a game.

File:

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

trunk/UMetroPassenger.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections;
+  Classes, SysUtils, Generics.Collections, UItems, DOM, UXMLUtils;
 
 type
@@ -15 +15 @@
   { TMetroPassenger }
 
-  TMetroPassenger = class
+  TMetroPassenger = class(TItem)
     DestinationIndex: TDestinationIndex;
+    class function GetClassSysName: string; override;
+    procedure LoadFromXmlNode(Node: TDOMNode); override;
+    procedure SaveToXmlNode(Node: TDOMNode); override;
   end;
 
   { TMetroPassengers }
 
-  TMetroPassengers = class(TObjectList<TMetroPassenger>)
-    function AddNew: TMetroPassenger;
+  TMetroPassengers = class(TItems<TMetroPassenger>)
+    class function GetClassSysName: string; override;
   end;
 
@@ -30 +33 @@
 { TMetroPassengers }
 
-function TMetroPassengers.AddNew: TMetroPassenger;
+class function TMetroPassengers.GetClassSysName: string;
 begin
-  Result := TMetroPassenger.Create;
-  Add(Result);
+  Result := 'MetroPassengers';
+end;
+
+{ TMetroPassengers }
+
+class function TMetroPassenger.GetClassSysName: string;
+begin
+  Result := 'MetroPassenger';
+end;
+
+procedure TMetroPassenger.LoadFromXmlNode(Node: TDOMNode);
+begin
+  inherited;
+  DestinationIndex := ReadInteger(Node, 'DestinationIndex', DestinationIndex);
+end;
+
+procedure TMetroPassenger.SaveToXmlNode(Node: TDOMNode);
+begin
+  inherited;
+  WriteInteger(Node, 'DestinationIndex', DestinationIndex);
 end;