paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 07:46:03 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fpdoc/fpclasschart.pp
View File

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