paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 01:45:57 +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('Successfully parsed the document. Structure:');
WriteLn; WriteLn;
if Assigned(xml.DocType) then
begin
WriteLn('DocType: "', xml.DocType.Name, '"');
WriteLn;
end;
DumpNode(xml, '| '); DumpNode(xml, '| ');
xml.Free; xml.Free;
end. end.
@ -69,7 +74,10 @@ end.
{ {
$Log$ $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 * The XML config object is now freed at the end of the program
(this enables us to detect memory leaks with this test program) (this enables us to detect memory leaks with this test program)