Changeset 5 for trunk/Packages/Common

Timestamp:

Apr 13, 2026, 9:08:21 AM (2 weeks ago)

Author:

chronos

Message:

• Modified: Load Owners from XML file with additional information about prices.

File:

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

trunk/Packages/Common/XML.pas

@@ -26 +26 @@
 implementation
 
+var
+  XmlFormatSettings: TFormatSettings = (
+    CurrencyFormat: 1;
+    NegCurrFormat: 5;
+    ThousandSeparator: ',';
+    DecimalSeparator: '.';
+    CurrencyDecimals: 2;
+    DateSeparator: '-';
+    TimeSeparator: ':';
+    ListSeparator: ',';
+    CurrencyString: '$';
+    ShortDateFormat: 'd/m/y';
+    LongDateFormat: 'dd" "mmmm" "yyyy';
+    TimeAMString: 'AM';
+    TimePMString: 'PM';
+    ShortTimeFormat: 'hh:nn';
+    LongTimeFormat: 'hh:nn:ss';
+    ShortMonthNames: ('Jan','Feb','Mar','Apr','May','Jun',
+                      'Jul','Aug','Sep','Oct','Nov','Dec');
+    LongMonthNames: ('January','February','March','April','May','June',
+                     'July','August','September','October','November','December');
+    ShortDayNames: ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
+    LongDayNames:  ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
+    TwoDigitYearCenturyWindow: 50;
+  );
+
 function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
 var
@@ -33 +59 @@
   NewNode := Node.FindNode(DOMString(Name));
   if Assigned(NewNode) then
-    Result := StrToFloat(string(NewNode.TextContent));
+    Result := StrToFloat(string(NewNode.TextContent), XmlFormatSettings);
 end;