|

楼主 |
发表于 2008-4-10 16:36:04
|
显示全部楼层
var
I: Integer;
lBizNode: TBizNode;
lBizNodes: TStringList;
begin
lBizNodes := TStringList.Create;
lBizNode := CheckBizTreeView1.SelectedNode;
lBizNodes.AddObject(lBizNode.GUID, lBizNode);
CheckBizTreeView1.BizTree.GetChildrenByFilter(lBizNode.GUID, lBizNodes, False, nil);
for I := 0 to lBizNodes.Count - 1 do
begin
lBizNode := lBizNodes.Objects[I] as TBizNode;
ListBox1.Items.Add(lBizNode.DisplayName);
end;
end;
编译错误
[错误] Incompatible types: "TBizObjectKinds" and "Void*" |
|