Changeset 6 for trunk/Ean.pas

Timestamp:

Apr 13, 2026, 2:01:36 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: EDC related code split into EdcProject unit.
• Added: Partial loading of spot prices.

File:

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

trunk/Ean.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, Generics.Defaults, DateUtils;
+  Classes, SysUtils, Generics.Collections, Generics.Defaults, DateUtils, DOM,
+  XML;
 
 type
@@ -40 +41 @@
     function GetTotalOut(TimeFrom, TimeTo: TDateTime): Double;
     function GetShared(TimeFrom, TimeTo: TDateTime): Double;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
     constructor Create;
     destructor Destroy; override;
@@ -49 +52 @@
     function SearchByNumber(Number: string): TEan;
     procedure LoadToStrings(Strings: TStrings; AllowNone: Boolean = False);
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
   end;
 
@@ -55 +60 @@
 
 procedure Translate;
+
+const
+  EansName = 'Eans';
+  EanName = 'Ean';
 
 
@@ -121 +130 @@
   if TotalIn <> 0 then Result := (1 - GetTotalOut(TimeFrom, TimeTo) / TotalIn) * 100
     else Result := 0;
+end;
+
+procedure TEan.LoadFromXmlNode(Node: TDOMNode);
+begin
+  Number := ReadString(Node, 'Number', Number);
+  Owner := ReadString(Node, 'Owner', Owner);
+  DistributionTariff := ReadString(Node, 'DistributionTariff', DistributionTariff);
+  PriceLow := ReadDouble(Node, 'PriceLow', PriceLow);
+  PriceHigh := ReadDouble(Node, 'PriceHigh', PriceHigh);
+  PriceSpot := ReadDouble(Node, 'PriceSpot', PriceSpot);
+end;
+
+procedure TEan.SaveToXmlNode(Node: TDOMNode);
+begin
+  WriteString(Node, 'Number', Number);
+  WriteString(Node, 'Owner', Owner);
+  WriteString(Node, 'DistributionTariff', DistributionTariff);
+  WriteDouble(Node, 'PriceLow', PriceLow);
+  WriteDouble(Node, 'PriceHigh', PriceHigh);
+  WriteDouble(Node, 'PriceSpot', PriceSpot);
 end;
 
@@ -165 +194 @@
 end;
 
+procedure TEans.LoadFromXmlNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  Ean: TEan;
+begin
+  Node2 := Node.FirstChild;
+  while Assigned(Node2) and (Node2.NodeName = EanName) do begin
+    Ean := TEan.Create;
+    Ean.LoadFromXmlNode(Node2);
+    Add(Ean);
+    Node2 := Node2.NextSibling;
+  end;
+end;
+
+procedure TEans.SaveToXmlNode(Node: TDOMNode);
+var
+  Node2: TDOMNode;
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do begin
+    Node2 := Node.OwnerDocument.CreateElement(EanName);
+    Items[I].SaveToXmlNode(Node2);
+    Node.AppendChild(Node2);
+  end;
+end;
+
 end.