如何获取机构中某个节点的父节点等

ntcp

方法一：
procedure TMainForm.Button1Click(Sender: TObject);
var
  lBizURL: TBizURL;
  lOrgUnit: TOrgUnit;
begin
  ListBox1.Items.Clear;

  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := 'Org:\ROOT\JG1.OGN\BM1.DPT\BM3.DPT\ZR.ptm';   //传一个节点的URL
    lOrgUnit := OrgSys.OrgSystem.GetUnit(lBizURL);
    while lOrgUnit <> nil do
    begin
      ListBox1.Items.Insert(0, lOrgUnit.DisplayName); //将节点的DisplayName显示在ListBox1
      lOrgUnit := lOrgUnit.Parent;   //取该节点的父节点
    end;
  finally
    lBizURL.Free;
  end;
end;


方法二：
procedure TMainForm.Button2Click(Sender: TObject);
var
  lNode: TTreeNode;
begin
  ListBox1.Items.Clear;
  lNode := OrgTreeView1.Selected;   //选中某个节点
  while lNode <> nil do
  begin
    ListBox1.Items.Insert(0, lNode.Text);  //将节点的Text显示在ListBox1
    lNode := lNode.Parent;  //取当前节点的父节点
  end;
end;