瀏覽代碼

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

git-svn-id: trunk@16878 -
ivost 14 年之前
父節點
當前提交
b31c87a134
共有 1 個文件被更改,包括 9 次插入4 次删除
  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;