Changeset 275 for trunk/UGameSystem.pas

Timestamp:

Feb 3, 2019, 11:28:03 PM (6 years ago)

Author:

chronos

Message:

• Added: New forms for game systems management.
• Added: Allow to load/save game system from/to file system as .xts file.

File:

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

trunk/UGameSystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl, UUnit, DOM, UXMLUtils, XMLConf;
+  Classes, SysUtils, fgl, UUnit, DOM, XMLRead, XMLWrite, UXMLUtils, XMLConf;
 
 type
@@ -20 +20 @@
     EmptyCellsNeutral: Boolean;
     UnitsMoveImmediately: Boolean;
+    FileName: string;
     constructor Create;
     destructor Destroy; override;
+    procedure Clear;
     procedure Assign(Source: TGameSystem);
     procedure LoadFromNode(Node: TDOMNode);
@@ -35 +37 @@
   TGameSystems = class(TFPGObjectList<TGameSystem>)
     function AddNew(Name: string): TGameSystem;
+    function SearchByName(Name: string): TGameSystem;
   end;
 
+
 implementation
+
+resourcestring
+  SWrongFileFormat = 'Wrong file format';
 
 { TGameSystems }
@@ -46 +53 @@
   Result.Name := Name;
   Add(Result);
+end;
+
+function TGameSystems.SearchByName(Name: string): TGameSystem;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (Items[I].Name <> Name) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
 end;
 
@@ -59 +76 @@
   UnitKinds.Free;
   inherited Destroy;
+end;
+
+procedure TGameSystem.Clear;
+begin
+  UnitKinds.Clear;
 end;
 
@@ -99 +121 @@
 
 procedure TGameSystem.LoadFromFile(FileName: string);
+var
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
 begin
-
+  ReadXMLFile(Doc, FileName);
+  Self.FileName := FileName;
+  Clear;
+  with Doc do try
+    if Doc.DocumentElement.NodeName <> 'XtacticsRules' then
+      raise Exception.Create(SWrongFileFormat);
+    RootNode := Doc.DocumentElement;
+    LoadFromNode(RootNode);
+  finally
+    FreeAndNil(Doc);
+  end;
 end;
 
 procedure TGameSystem.SaveToFile(FileName: string);
+var
+  Doc: TXMLDocument;
+  RootNode: TDOMNode;
 begin
-
+  Self.FileName := FileName;
+  Doc := TXMLDocument.Create;
+  with Doc do try
+    RootNode := CreateElement('XtacticsRules');
+    AppendChild(RootNode);
+    SaveToNode(RootNode);
+    if ExtractFileDir(FileName) <> '' then
+      ForceDirectories(ExtractFileDir(FileName));
+    WriteXMLFile(Doc, FileName);
+  finally
+    FreeAndNil(Doc);
+  end;
 end;