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

* Adapted to new xmlread

Browse Source
This commit is contained in:
michael 1999-08-27 15:52:49 +00:00
parent 5149a533f1
commit 58b991acc1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/tests/xmldump.pp
View File

@ -56,9 +56,9 @@ begin
end; end;
if UpCase(ExtractFileExt(ParamStr(1))) = '.DTD' then if UpCase(ExtractFileExt(ParamStr(1))) = '.DTD' then
xml := ReadDTDFile(ParamStr(1)) ReadDTDFile(xml,ParamStr(1))
else else
xml := ReadXMLFile(ParamStr(1)); ReadXMLFile(xml,ParamStr(1));
WriteLn('Successfully parsed the document. Structure:'); WriteLn('Successfully parsed the document. Structure:');
WriteLn; WriteLn;
@ -68,7 +68,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 1999-07-09 21:06:59 michael Revision 1.2 1999-08-27 15:52:49 michael
* Adapted to new xmlread
Revision 1.1 1999/07/09 21:06:59 michael
+ Initial implementation by sebastian Guenther + Initial implementation by sebastian Guenther
} }