Changeset 8 for trunk/Packages

Timestamp:

Apr 13, 2026, 11:12:39 PM (2 weeks ago)

Author:

chronos

Message:

• Fixed: Data tab populating and refreshing.
• Fixed: Used currency as decimal type for measured values instead inaccurate double type.

File:

• trunk/Packages/Common/XML.pas (modified) (4 diffs)

trunk/Packages/Common/XML.pas

@@ -15 +15 @@
 procedure WriteDateTime(Node: TDOMNode; Name: string; Value: TDateTime);
 procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double);
+procedure WriteCurrency(Node: TDOMNode; Name: string; Value: Currency);
 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
 function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64;
@@ -21 +22 @@
 function ReadDateTime(Node: TDOMNode; Name: string; DefaultValue: TDateTime): TDateTime;
 function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
+function ReadCurrency(Node: TDOMNode; Name: string; DefaultValue: Currency): Currency;
 procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string);
 
@@ -60 +62 @@
   if Assigned(NewNode) then
     Result := StrToFloat(string(NewNode.TextContent), XmlFormatSettings);
+end;
+
+function ReadCurrency(Node: TDOMNode; Name: string; DefaultValue: Currency
+  ): Currency;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToCurr(string(NewNode.TextContent), XmlFormatSettings);
 end;
 
@@ -247 +260 @@
 end;
 
+procedure WriteCurrency(Node: TDOMNode; Name: string; Value: Currency);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(CurrToStr(Value, XmlFormatSettings));
+  Node.AppendChild(NewNode);
+end;
+
 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
 var