Browse Source

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

git-svn-id: trunk@16878 -
ivost 14 years ago
parent
commit
b31c87a134
1 changed files with 9 additions and 4 deletions
  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';
   SXsdParserError = 'parsing "%s" as "%s" failed';
 
 
 type
 type
+{$IFDEF MSWINDOWS}
+  PBoolean = System.PBoolean;
+  // PBoolean is redefined by windows unit, so redefine it here again!
+{$ENDIF}
+
   TXsdTimezoneType = (
   TXsdTimezoneType = (
-    tzUNKNOWN,
-    tzLOCAL,
-    tzUTC
+    tzUnknown,
+    tzLocal,
+    tzUtc
   );
   );
 
 
   PXsdTimezone = ^TXsdTimezone;
   PXsdTimezone = ^TXsdTimezone;
@@ -422,7 +427,7 @@ begin
   case GetTimeZoneInformation(TZInfo) of
   case GetTimeZoneInformation(TZInfo) of
     1: Offset := -TZInfo.Bias - TZInfo.StandardBias;
     1: Offset := -TZInfo.Bias - TZInfo.StandardBias;
     2: Offset := -TZInfo.Bias - TZInfo.DaylightBias;
     2: Offset := -TZInfo.Bias - TZInfo.DaylightBias;
-    else Result.Kind := tz;
+    else Result.Kind := tzUnknown;
   end;
   end;
 {$ENDIF}
 {$ENDIF}
   Result.Hour := Offset div 60;
   Result.Hour := Offset div 60;