Changeset 167 for branches/generator/Packages/Common/UXMLUtils.pas

Timestamp:

Aug 9, 2018, 3:43:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Fixed: Remember forms dimensions after application restart.

File:

• branches/generator/Packages/Common/UXMLUtils.pas (modified) (15 diffs)

branches/generator/Packages/Common/UXMLUtils.pas

@@ -7 +7 @@
 uses
   {$IFDEF WINDOWS}Windows,{$ENDIF}
-  Classes, SysUtils, DateUtils, XMLRead, DOM;
+  Classes, SysUtils, DateUtils, DOM, XMLRead;
 
 function XMLTimeToDateTime(XMLDateTime: string): TDateTime;
-function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
+function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
 procedure WriteInteger(Node: TDOMNode; Name: string; Value: Integer);
 procedure WriteInt64(Node: TDOMNode; Name: string; Value: Int64);
@@ -50 +50 @@
   TimeZoneInfo: TTimeZoneInformation;
 begin
+  {$push}{$warn 5057 off}
   case GetTimeZoneInformation(TimeZoneInfo) of
-  TIME_ZONE_ID_STANDARD: Result := TimeZoneInfo.Bias + TimeZoneInfo.StandardBias;
-  TIME_ZONE_ID_DAYLIGHT: Result := TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias;
+    TIME_ZONE_ID_STANDARD: Result := TimeZoneInfo.Bias + TimeZoneInfo.StandardBias;
+    TIME_ZONE_ID_DAYLIGHT: Result := TimeZoneInfo.Bias + TimeZoneInfo.DaylightBias;
   else
     Result := 0;
   end;
+  {$pop}
 end;
 {$ELSE}
@@ -65 +67 @@
 function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
 var
-  I, J: Integer;
+  I: Integer;
   Matched: Boolean;
 begin
@@ -119 +121 @@
       if Pos('Z', XMLDateTime) > 0 then
         LeftCutString(XMLDateTime, Part, 'Z');
-      SecondFraction := StrToFloat('0' + DecimalSeparator + Part);
+      SecondFraction := StrToFloat('0' + DefaultFormatSettings.DecimalSeparator + Part);
       Millisecond := Trunc(SecondFraction * 1000);
     end else begin
@@ -138 +140 @@
 end;
 
-function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
+function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
 const
   Neg: array[Boolean] of string =  ('+', '-');
@@ -159 +161 @@
   NewNode: TDOMNode;
 begin
-  NewNode := Node.OwnerDocument.CreateElement(Name);
-  NewNode.TextContent := IntToStr(Value);
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(IntToStr(Value));
   Node.AppendChild(NewNode);
 end;
@@ -168 +170 @@
   NewNode: TDOMNode;
 begin
-  NewNode := Node.OwnerDocument.CreateElement(Name);
-  NewNode.TextContent := IntToStr(Value);
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(IntToStr(Value));
   Node.AppendChild(NewNode);
 end;
@@ -177 +179 @@
   NewNode: TDOMNode;
 begin
-  NewNode := Node.OwnerDocument.CreateElement(Name);
-  NewNode.TextContent := BoolToStr(Value);
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(BoolToStr(Value));
   Node.AppendChild(NewNode);
 end;
@@ -186 +188 @@
   NewNode: TDOMNode;
 begin
-  NewNode := Node.OwnerDocument.CreateElement(Name);
-  NewNode.TextContent := Value;
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(Value);
   Node.AppendChild(NewNode);
 end;
@@ -195 +197 @@
   NewNode: TDOMNode;
 begin
-  NewNode := Node.OwnerDocument.CreateElement(Name);
-  NewNode.TextContent := DateTimeToXMLTime(Value);
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(DateTimeToXMLTime(Value));
   Node.AppendChild(NewNode);
 end;
@@ -205 +207 @@
 begin
   Result := DefaultValue;
-  NewNode := Node.FindNode(Name);
-  if Assigned(NewNode) then
-    Result := StrToInt(NewNode.TextContent);
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToInt(string(NewNode.TextContent));
 end;
 
@@ -215 +217 @@
 begin
   Result := DefaultValue;
-  NewNode := Node.FindNode(Name);
-  if Assigned(NewNode) then
-    Result := StrToInt64(NewNode.TextContent);
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToInt64(string(NewNode.TextContent));
 end;
 
@@ -225 +227 @@
 begin
   Result := DefaultValue;
-  NewNode := Node.FindNode(Name);
-  if Assigned(NewNode) then
-    Result := StrToBool(NewNode.TextContent);
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToBool(string(NewNode.TextContent));
 end;
 
@@ -235 +237 @@
 begin
   Result := DefaultValue;
-  NewNode := Node.FindNode(Name);
-  if Assigned(NewNode) then
-    Result := NewNode.TextContent;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := string(NewNode.TextContent);
 end;
 
@@ -246 +248 @@
 begin
   Result := DefaultValue;
-  NewNode := Node.FindNode(Name);
-  if Assigned(NewNode) then
-    Result := XMLTimeToDateTime(NewNode.TextContent);
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := XMLTimeToDateTime(string(NewNode.TextContent));
 end;