Changeset 315 for trunk/Packages/Common/XML.pas

Timestamp:

Jun 19, 2024, 11:15:44 PM (5 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Packages/Common/XML.pas (moved) (moved from trunk/Packages/Common/UXMLUtils.pas ) (5 diffs)

trunk/Packages/Common/XML.pas

@@ -1 @@
-unit UXMLUtils;
-
-{$mode delphi}
+unit XML;
 
 interface
@@ -16 +14 @@
 procedure WriteString(Node: TDOMNode; Name: string; Value: string);
 procedure WriteDateTime(Node: TDOMNode; Name: string; Value: TDateTime);
+procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double);
 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
 function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64;
@@ -21 +20 @@
 function ReadString(Node: TDOMNode; Name: string; DefaultValue: string): string;
 function ReadDateTime(Node: TDOMNode; Name: string; DefaultValue: TDateTime): TDateTime;
+function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
 procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string);
 
 
 implementation
+
+function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToFloat(string(NewNode.TextContent));
+end;
 
 procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string);
@@ -202 +212 @@
 end;
 
+procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(FloatToStr(Value));
+  Node.AppendChild(NewNode);
+end;
+
 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
 var
@@ -254 +273 @@
 
 end.
-