Browse Source

* Fix some compiler warnings

Michaël Van Canneyt 3 years ago
parent
commit
daa8a20fd5
1 changed files with 4 additions and 2 deletions
  1. 4 2
      packages/rtl/dateutils.pas

+ 4 - 2
packages/rtl/dateutils.pas

@@ -507,7 +507,7 @@ Function ScanDateTime(APattern,AValue: String; APos : integer = 1) : TDateTime;
 
 implementation
 
-uses js, rtlconsts;
+uses  rtlconsts;
 
 const
   TDateTimeEpsilon = 2.2204460493e-16;
@@ -2482,7 +2482,7 @@ end;
 
 Const
   FmtUTC = 'yyyy"-"mm"-"dd"T"hh":"nn":"ss"."zzz';
-  FmtUTCTZ = 'hh":"mm';
+//  FmtUTCTZ = 'hh":"mm';
 
 function DateToISO8601(const ADate: TDateTime; AInputIsUTC: Boolean = True): string;
 
@@ -2708,12 +2708,14 @@ begin
     end;
 end;
 
+(*
 Function ISOTZStrToTZOffset(TZ : String) : Integer;
 
 begin
   if not TryISOTZStrToTZOffSet(TZ,Result) then
     Raise EConvertError.CreateFmt('Invalid ISO timezone string',[TZ]);
 end;
+*)
 
 
 Function TryISO8601ToDate(const DateString: string; out ADateTime: TDateTime;ReturnUTC : Boolean = True) : Boolean;