Changeset 72 for trunk/Packages/Common/UXMLUtils.pas

Timestamp:

Mar 6, 2016, 12:10:38 AM (8 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

File:

• trunk/Packages/Common/UXMLUtils.pas (modified) (3 diffs)

trunk/Packages/Common/UXMLUtils.pas

@@ -10 +10 @@
 
 function XMLTimeToDateTime(XMLDateTime: string): TDateTime;
-function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
+function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
 
 
@@ -35 +35 @@
 function LeftCutString(var Source: string; out Output: string; Delimiter: string; Allowed: string = ''): Boolean;
 var
-  I, J: Integer;
+  I: Integer;
   Matched: Boolean;
 begin
@@ -106 +106 @@
 end;
 
-function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): WideString;
+function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
 const
   Neg: array[Boolean] of string =  ('+', '-');