我正在尝试使用一些额外的字段扩展TTreeNode
类,以用于我非常简单的程序。像这样:
TCustomTreeNode = class(TTreeNode)
private
FPath : string;
FParam : string;
property Path: string read FPath write FPath;
property Param : string read FParam write FParam;
end;
我告诉TTreeView
使用我这样的课程:
procedure TMain.cxTreeView1CreateNodeClass(Sender: TCustomTreeView;
var NodeClass: TTreeNodeClass);
begin
NodeClass := TCustomTreeNode;
end;
然后我定义了一个节点数组,如下所示:
Nodes : array of TCustomTreeNode;
最后,我试图像这样填充数组:
Nodes[i] := cxTreeView1.Items.Add(nil, OuterRoot.ChildNodes[i].AttributeNodes.Nodes['Name'].Text) as TCustomTreeNode;
它引发了“无效类类型转换”异常。
我做错了什么?