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