paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Now also dumps the document type

Browse Source
This commit is contained in:
sg 2000-06-29 16:45:51 +00:00
parent 30d11c4d66
commit c011369949
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/tests/xmldump.pp
View File

@ -62,6 +62,11 @@ begin
WriteLn('Successfully parsed the document. Structure:');
WriteLn;
if Assigned(xml.DocType) then
begin
WriteLn('DocType: "', xml.DocType.Name, '"');
WriteLn;
end;
DumpNode(xml, '| ');
xml.Free;
end.
@ -69,7 +74,10 @@ end.
{
$Log$
Revision 1.5 2000-01-30 22:20:57 sg
Revision 1.6 2000-06-29 16:45:51 sg
* Now also dumps the document type
Revision 1.5 2000/01/30 22:20:57 sg
* The XML config object is now freed at the end of the program
(this enables us to detect memory leaks with this test program)