paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-26 10:07:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* More WideString fixes

Browse Source
This commit is contained in:
sg 2002-12-12 20:17:32 +00:00
parent 2dad442c06
commit 45ace4f83c
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/xml/sax_html.pp
View File

@ -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