* another minor problem found with -CR

git-svn-id: trunk@23765 -
This commit is contained in:
marco 2013-03-09 23:54:13 +00:00
parent cb55b2d2cf
commit fc02f5c7f7

View File

@ -341,7 +341,7 @@ begin
begin
ParentElement := TPasProcedureType(AModule.InterfaceSection.Functions[j]);
TmpItem := Index.Items.NewItem;
TmpItem.Text := ParentElement.Name + ' ' + TPasFunction(ParentElement).ElementTypeName;
TmpItem.Text := ParentElement.Name + ' ' + ParentElement.ElementTypeName;
TmpItem.Local := FixHTMLpath(Allocator.GetFilename(ParentElement, 0));
end;
// consts