如何测试组织机构表达式

john

OrgSys.OrgSystem.GetURLsByOrgExpr(lExp, lList);
是把lExp的表达式计算结果放到lList
lList是一个TBizNode的List，可以逐个访问每一个TBizNode
TBizNode.DisplayName是姓名
TBizNode.BizURL.ID是编号

var
  lBizNode: TBizNode;
  lList: TList;
  lExp, S: String;
  i: Integer;
begin
  lExp := Memo1.Text;

  OrgListView1.Nodes.BeginUpdate;
  try
    OrgListView1.Nodes.Clear;
    lList := TList.Create;
    try
      OrgSys.OrgSystem.GetURLsByOrgExpr(lExp, lList);
      for i:=0 to lList.Count-1 do
      begin
        lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lList as TBizURL);
        OrgListView1.Nodes.AddObject(lBizNode.GUID, lBizNode);
      end;
    finally
      lList.Free;
    end;
  finally
    OrgListView1.Nodes.EndUpdate;
  end;