lsvStartWithNodes编译怎么是未定义**

dupit

这个是帮助手册的例子 BizTreeView的运用
procedure TMainForm.btnAddStartWithNodesClick(Sender: TObject);
var
  I: Integer;
  lStartWithNodes: TStrings;
  lFileName: string;
  lBizNode: TBizNode;
begin
  brdSelectStartWithNode.PromptText := '选择对象作为根节点：';
  //brdSelectStartWithNode.ShowOptions := cAllBizObjectKinds;
  brdSelectStartWithNode.ShowCheck := True;

  if brdSelectStartWithNode.Execute then
  begin
    lStartWithNodes := TStringList.Create;
    try
      for I := 0 to brdSelectStartWithNode.Files.Count - 1 do
      begin
        lFileName := brdSelectStartWithNode.Files[I];
        lBizNode := BizTree.BizTreeStructure.FindNodeByFullFileName(lFileName);
        if lBizNode <> nil then
          lStartWithNodes.AddObject(lBizNode.GUID, lBizNode);
      end;

      BizTreeView.StartWithNodes := lStartWithNodes;
      ReloadBizTreeView;

      lsvStartWithNodes.Nodes := lStartWithNodes;
    finally
      lStartWithNodes.Free;
    end;
  end;
end;

lsvStartWithNodes编译怎么是未定义

jiahaiming

lsvStartWithNodes.Nodes := lStartWithNodes;
这句没有用，楼主注释掉吧。