* fixed bug in xsdTryParseBoolean (segfault on null string)

git-svn-id: trunk@14215 -

packages/libxml/src/xmlxsd.pas

@@ -882,6 +882,9 @@ var
   P: PChar;
   Num: QWord;
 begin
+  if not Assigned(Chars) then
+    Exit(False);
+
   if Len < 0 then
   begin
     P := PChar(Chars);