【结贴】取人员问题**

huixiangtao

procedure TMainForm.Button1Click(Sender: TObject);
var
  lBizURL: TBizURL;
  Org: TOrgSystem;
  lBizNode: TBizNode;
  i: Integer;
begin
  lBizURL := TBizURL.Create;
  Org := TOrgSystem.Create;
  try
    Memo1.Lines.Clear;
    lBizURL.URL := 'Org:\ROOT\JG1.OGN\BM2.DPT\GW2.ptm';
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
    BizTree.BizTreeStructure.GetChildren(lBizNode.GUID,Memo1.Lines,True);
    for i := 0 to Memo1.Lines.Count -1 do
    begin
    lBizNode := BizTree.BizTreeStructure.FindNode(Memo1.Lines) as TBizNode;
    if lBizNode.NodeKind = TBizObjectKind.boPersonMember then
      Dialogs.ShowMessage(lBizNode.DisplayName);
    end;
  finally
    lBizURL.Free;
    Org.Free;
  end;
end;
搜索论坛，发现了这么一段代码，其中的 “ if lBizNode.NodeKind = TBizObjectKind.boPersonMember then”判断语句，我不太明白，尤其是boPersonMember是什么？我测试了一下，就算没有判断语句，直接写下面的那条showmessage语句也同样正确，能给我解释一下吗？

zfang

boPersonMember 是人员成员。

huixiangtao

那这条判断语句的作用是什么？我试了，没有判断语句，也可以正常输出

zfang

那对于你的情况，你不加这个判断也是可以的呀。

huixiangtao

我不知道什么情况下要加这个判断？
我的情况就是某岗位下面有十个人员，其他的没有了。

shangxy

这个判断就是当lBizNode 不是岗位成员节点的的时时候，就需要判断了。

huixiangtao

“这个判断就是当lBizNode 不是岗位成员节点的的时时候，就需要判断了。”这句话的意思不太明白，能给出个小例子解释一下吗？

shangxy

lBizURL.URL := 'Org:\ROOT\JG1.OGN\BM2.DPT\GW2.ptm';
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
这里是岗位成员：GW2.ptm下面的所有子节点，岗位成员下面的子节点就是人员成员了,所以你现在取到的就是人员成员
如果你这个lBizURL.URL := 'Org:\ROOT\JG1.OGN\BM2.DPT'，那么这个lBIzNode取到的就可能包括岗位成员和人员成员了，这个时候你要去人员成员就要判断一下了是那种类型的了。

huixiangtao

哦，知道了，结贴吧！