Changeset 5 for trunk/Packages

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.

Location:

trunk/Packages

Files:

• Common/XML.pas (modified) (2 diffs)
• CoolStreaming (added)
• CoolStreaming/BitStream.pas (added)
• CoolStreaming/BufferedFileStream.pas (added)
• CoolStreaming/CoolStreaming.lpk (added)
• CoolStreaming/CoolStreaming.pas (added)
• CoolStreaming/DynNumber.pas (added)
• CoolStreaming/Languages (added)
• CoolStreaming/Languages/VarBlockSerializer.cs.po (added)
• CoolStreaming/Languages/VarBlockSerializer.pot (added)
• CoolStreaming/StreamHelper.pas (added)
• CoolStreaming/SubStream.pas (added)
• CoolStreaming/TextFileStream.pas (added)
• CoolStreaming/VarBlockSerializer.pas (added)
• csvdocument/csvdocument.pas (modified) (1 diff)
• csvdocument/csvdocument_package.lpk (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;
 

trunk/Packages/csvdocument/csvdocument.pas

@@ -93 +93 @@
 
   // Sequential input from CSV stream
+
+  { TCSVParser }
+
   TCSVParser = class(TCSVHandler)
   private

trunk/Packages/csvdocument/csvdocument_package.lpk

@@ -1 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
-  <Package Version="3">
+  <Package Version="5">
     <PathDelim Value="\"/>
     <Name Value="csvdocument_package"/>
+    <AddToProjectUsesSection Value="True"/>
     <Author Value="Vladimir Zhirov"/>
     <CompilerOptions>
-      <Version Value="10"/>
+      <Version Value="11"/>
       <PathDelim Value="\"/>
       <SearchPaths>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
       </SearchPaths>
       <Parsing>
         <SyntaxOptions>
+          <SyntaxMode Value="Delphi"/>
           <CStyleOperator Value="False"/>
+          <AllowLabel Value="False"/>
+          <CPPInline Value="False"/>
         </SyntaxOptions>
       </Parsing>
       <CodeGeneration>
         <SmartLinkUnit Value="True"/>
-        <Checks>
-          <IOChecks Value="True"/>
-          <RangeChecks Value="True"/>
-          <OverflowChecks Value="True"/>
-          <StackChecks Value="True"/>
-        </Checks>
         <Optimizations>
-          <OptimizationLevel Value="2"/>
+          <OptimizationLevel Value="0"/>
         </Optimizations>
       </CodeGeneration>
       <Linking>
         <Debugging>
+          <GenerateDebugInfo Value="False"/>
           <UseLineInfoUnit Value="False"/>
         </Debugging>
       </Linking>
-      <Other>
-        <CustomOptions Value="-al"/>
-        <CompilerPath Value="$(CompPath)"/>
-      </Other>
     </CompilerOptions>
     <Description Value="CsvDocument library is a unit contaning set of classes for CSV files handling."/>
@@ -47 +42 @@
       </Item1>
     </Files>
+    <CompatibilityMode Value="True"/>
     <RequiredPkgs Count="1">
       <Item1>