Changeset 122 for trunk/UTrack.pas

Timestamp:

Oct 26, 2022, 5:25:25 PM (19 months ago)

Author:

chronos

Message:

• Modified: Partial implementation for load/save of current game.

File:

• trunk/UTrack.pas (modified) (11 diffs)

trunk/UTrack.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Math, Generics.Collections, UGeometric;
+  Classes, SysUtils, Math, Generics.Collections, UGeometric, DOM, XMLRead,
+  XMLWrite, UXMLUtils;
 
 type
@@ -48 +49 @@
     // Move to TTrackLink later
     function GetDistance: Integer;
+
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
     constructor Create;
     destructor Destroy; override;
@@ -57 +61 @@
     Track: TTrack;
     function AddNew: TTrackPoint;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
   end;
 
@@ -64 +70 @@
     Points: TTrackPoints;
     Shift: TPoint;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
     constructor Create;
     destructor Destroy; override;
@@ -73 +81 @@
     function SearchPoints(Point1, Point2: TTrackPoint): TTrackLink;
     function AddNew: TTrackLink;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
   end;
 
@@ -86 +96 @@
     constructor Create;
     destructor Destroy; override;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
   end;
 
@@ -200 +212 @@
 end;
 
+procedure TTrackLinks.LoadFromXmlNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TTrackLink;
+begin
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Link') do begin
+    NewItem := TTrackLink.Create;
+    NewItem.LoadFromXmlNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TTrackLinks.SaveToXmlNode(Node: TDOMNode);
+var
+  I: Integer;
+  Node2: TDOMNode;
+begin
+  for I := 0 to Count - 1 do begin;
+    Node2 := Node.OwnerDocument.CreateElement('Link');
+    Node.AppendChild(Node2);
+    Items[I].SaveToXmlNode(Node2);
+  end;
+end;
+
 { TTrackPoints }
 
@@ -206 +244 @@
   Result := TTrackPoint.Create;
   Result.Track := Track;
+end;
+
+procedure TTrackPoints.LoadFromXmlNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  NewItem: TTrackPoint;
+begin
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = 'Point') do begin
+    NewItem := TTrackPoint.Create;
+    NewItem.LoadFromXmlNode(Node2);
+    Add(NewItem);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TTrackPoints.SaveToXmlNode(Node: TDOMNode);
+var
+  I: Integer;
+  Node2: TDOMNode;
+begin
+  for I := 0 to Count - 1 do begin;
+    Node2 := Node.OwnerDocument.CreateElement('Point');
+    Node.AppendChild(Node2);
+    Items[I].SaveToXmlNode(Node2);
+  end;
 end;
 
@@ -222 +286 @@
   FreeAndNil(Links);
   inherited;
+end;
+
+procedure TTrack.LoadFromXmlNode(Node: TDOMNode);
+begin
+  Points.LoadFromXmlNode(Node);
+  Links.LoadFromXmlNode(Node);
+end;
+
+procedure TTrack.SaveToXmlNode(Node: TDOMNode);
+begin
+  Points.SaveToXmlNode(Node);
+  Links.SaveToXmlNode(Node);
 end;
 
@@ -281 +357 @@
 { TTrackLink }
 
+procedure TTrackLink.LoadFromXmlNode(Node: TDOMNode);
+begin
+
+end;
+
+procedure TTrackLink.SaveToXmlNode(Node: TDOMNode);
+begin
+
+end;
+
 constructor TTrackLink.Create;
 begin
@@ -444 +530 @@
 end;
 
+procedure TTrackPoint.LoadFromXmlNode(Node: TDOMNode);
+begin
+  Position.X := ReadInteger(Node, 'PositionX', Position.X);
+  Position.Y := ReadInteger(Node, 'PositionY', Position.Y);
+end;
+
+procedure TTrackPoint.SaveToXmlNode(Node: TDOMNode);
+begin
+  WriteInteger(Node, 'PositionX', Position.X);
+  WriteInteger(Node, 'PositionY', Position.Y);
+end;
+
 constructor TTrackPoint.Create;
 begin