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

* Fixed compilation

Browse Source 
git-svn-id: trunk@22174 -
This commit is contained in:
michael 2012-08-22 16:49:47 +00:00
parent d666240097
commit 28ef4c9532
1 changed files with 1 additions and 5 deletions

6
utils/fpdoc/fpclasschart.pp
View File

@ -33,10 +33,6 @@ resourcestring
SMergedFile = 'Merged %d classes from file %s.';
SClassesAdded = 'Added %d classes from %d files.';
Const
RootNames : Array[TPasObjKind] of string
= ('Objects', 'Classes', 'Interfaces','Generics','Specializations');
type
{ TClassTreeEngine }
@ -622,7 +618,7 @@ begin
XML:=TXMLDocument.Create;
Try
//XML.
XML.AppendChild(XML.CreateElement(RootNames[AObjectKind]));
XML.AppendChild(XML.CreateElement(ObjKindNames[AObjectKind]));
For I:=0 to MergeFiles.Count-1 do
begin
XMl2:=TXMLDocument.Create;