mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 18:29:12 +02:00
laz_xmlread: skipping end of file chars (#26) at end of xml
git-svn-id: trunk@15903 -
This commit is contained in:
parent
4565dbfac4
commit
9e45d8aedd
@ -442,6 +442,9 @@ begin
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
// skip end of file characters
|
||||
while buf^=#26 do inc(buf);
|
||||
// check if whole document was read
|
||||
if buf[0] <> #0 then
|
||||
RaiseExc('Text after end of document element found');
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user