procedure TMainForm.Button3Click(Sender: TObject);
var
lBizUrl: TBizURL;
FGUID: String;
i: Integer;
Org : TOrgSystem ;
lBizNode: TBizNode;
begin
lBizURl := TBizURL.Create;
Org := TOrgSystem.Create;
try
Memo1.Lines.Clear;
lBizURl.URL := 'Org:\ROOT\JG1.ogn';
FGUID := CheckBizTreeView1.BizTree.FindNodeByBizURL(lBizURl).GUID;
BizTree.BizTreeStructure.GetChildren(FGUID,Memo1.Lines,True);//,[TBizObjectKind.boOrgServer, TBizObjectKind.boOrgRoot,
for i := 0 to Memo1.Lines.Count -1 do
begin
lbizNode := BizTree.BizTreeStructure.FindNode(Memo1.Lines) as TBizNode;
if lbizNode.NodeKind = TBizObjectKind.boPositionMember then
begin
CheckBizTreeView1.SelectedNode := lBizNode;
if CheckBizTreeView1.Checked[CheckBizTreeView1.Selected] then
Dialogs.ShowMessage(lBizNode.BizURL.URL);
end;
end;
finally
lBizURl.Free;
Org.Free;
end;
end; |
楼主
发表于 2008-7-7 11:17:26
