From 45ace4f83c88fad3baf3fa73c40e9b43fba348f7 Mon Sep 17 00:00:00 2001
From: sg <sg>
Date: Thu, 12 Dec 2002 20:17:32 +0000
Subject: [PATCH] * More WideString fixes

---
 fcl/xml/sax_html.pp | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/fcl/xml/sax_html.pp b/fcl/xml/sax_html.pp
index 521a5facfc..cd0af52528 100644
--- a/fcl/xml/sax_html.pp
+++ b/fcl/xml/sax_html.pp
@@ -48,7 +48,7 @@ type
     FStarted: Boolean;
     FEndOfStream: Boolean;
     FScannerContext: THTMLScannerContext;
-    FTokenText: String;
+    FTokenText: SAXString;
     FCurStringValueDelimiter: Char;
     FAttrNameRead: Boolean;
   protected
@@ -61,7 +61,7 @@ type
 
     property EndOfStream: Boolean read FEndOfStream;
     property ScannerContext: THTMLScannerContext read FScannerContext;
-    property TokenText: String read FTokenText;
+    property TokenText: SAXString read FTokenText;
   end;
 
 
@@ -421,7 +421,7 @@ end;
 procedure THTMLToDOMConverter.ReaderCharacters(Sender: TObject;
   const ch: PSAXChar; Start, Count: Integer);
 var
-  s: String;
+  s: SAXString;
   NodeInfo: THTMLNodeInfo;
 begin
   SetLength(s, Count);
@@ -436,7 +436,7 @@ end;
 procedure THTMLToDOMConverter.ReaderIgnorableWhitespace(Sender: TObject;
   const ch: PSAXChar; Start, Count: Integer);
 var
-  s: String;
+  s: SAXString;
   NodeInfo: THTMLNodeInfo;
 begin
   SetLength(s, Count);
@@ -547,7 +547,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2002-12-12 13:43:38  michael
+  Revision 1.3  2002-12-12 20:17:32  sg
+  * More WideString fixes
+
+  Revision 1.2  2002/12/12 13:43:38  michael
   + Patches from peter to fix 1.1 compile
 
   Revision 1.1  2002/12/11 21:06:07  sg