paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-28 14:27:13 +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; FStarted: Boolean;
FEndOfStream: Boolean; FEndOfStream: Boolean;
FScannerContext: THTMLScannerContext; FScannerContext: THTMLScannerContext;
FTokenText: String; FTokenText: SAXString;
FCurStringValueDelimiter: Char; FCurStringValueDelimiter: Char;
FAttrNameRead: Boolean; FAttrNameRead: Boolean;
protected protected
@ -61,7 +61,7 @@ type
property EndOfStream: Boolean read FEndOfStream; property EndOfStream: Boolean read FEndOfStream;
property ScannerContext: THTMLScannerContext read FScannerContext; property ScannerContext: THTMLScannerContext read FScannerContext;
property TokenText: String read FTokenText; property TokenText: SAXString read FTokenText;
end; end;
@ -421,7 +421,7 @@ end;
procedure THTMLToDOMConverter.ReaderCharacters(Sender: TObject; procedure THTMLToDOMConverter.ReaderCharacters(Sender: TObject;
const ch: PSAXChar; Start, Count: Integer); const ch: PSAXChar; Start, Count: Integer);
var var
s: String; s: SAXString;
NodeInfo: THTMLNodeInfo; NodeInfo: THTMLNodeInfo;
begin begin
SetLength(s, Count); SetLength(s, Count);
@ -436,7 +436,7 @@ end;
procedure THTMLToDOMConverter.ReaderIgnorableWhitespace(Sender: TObject; procedure THTMLToDOMConverter.ReaderIgnorableWhitespace(Sender: TObject;
const ch: PSAXChar; Start, Count: Integer); const ch: PSAXChar; Start, Count: Integer);
var var
s: String; s: SAXString;
NodeInfo: THTMLNodeInfo; NodeInfo: THTMLNodeInfo;
begin begin
SetLength(s, Count); SetLength(s, Count);
@ -547,7 +547,10 @@ end.
{ {
$Log$ $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 + Patches from peter to fix 1.1 compile
Revision 1.1 2002/12/11 21:06:07 sg Revision 1.1 2002/12/11 21:06:07 sg