Explorar el Código

* fixed bug with xmlxsdparser.pas (typo). It was introduced by r16873

git-svn-id: trunk@16878 -
ivost hace 14 años
padre
commit
b31c87a134
Se han modificado 1 ficheros con 9 adiciones y 4 borrados
  1. 9 4
      packages/libxml/src/xmlxsdparser.pas

+ 9 - 4
packages/libxml/src/xmlxsdparser.pas

@@ -24,10 +24,15 @@ resourcestring
   SXsdParserError = 'parsing "%s" as "%s" failed';
 
 type
+{$IFDEF MSWINDOWS}
+  PBoolean = System.PBoolean;
+  // PBoolean is redefined by windows unit, so redefine it here again!
+{$ENDIF}
+
   TXsdTimezoneType = (
-    tzUNKNOWN,
-    tzLOCAL,
-    tzUTC
+    tzUnknown,
+    tzLocal,
+    tzUtc
   );
 
   PXsdTimezone = ^TXsdTimezone;
@@ -422,7 +427,7 @@ begin
   case GetTimeZoneInformation(TZInfo) of
     1: Offset := -TZInfo.Bias - TZInfo.StandardBias;
     2: Offset := -TZInfo.Bias - TZInfo.DaylightBias;
-    else Result.Kind := tz;
+    else Result.Kind := tzUnknown;
   end;
 {$ENDIF}
   Result.Hour := Offset div 60;