【结贴】怎样获得业务操作列表**

lixy

我抄你的代码，修改并测试通过。
procedure TMainForm.Button2Click(Sender: TObject);
var
   lOrgUnit: TOrgUnit;
    op:TOrgModule;
    lBizURL: TBizURL;
    lst:Tlist;
    i,j:integer;
begin
    lst:=Tlist.create;
      lBizURL:=TBizURL.Create;
    try

        lBizURL.URL:=SysUtils.UpperCase(OrgTreeView1.SelectedNode.BizURL.URL);

      lOrgUnit :=org.OrgSys.OrgSystem.GetUnit(lBizURL);
       Dialogs.ShowMessage(lOrgUnit.ID);


       //  op:=Business.Model.Org.TOrgModule.Create(lOrgUnit);
       lOrgUnit.Module.GetOperationPolicy(lst);
       // op.GetOperationPolicy(lst);
       dialogs.ShowMessage(sysutils.inttostr(lst.count));
      for i:=0 to  lst.Count-1 do
          for j:=0 to  TOperationPolicy(lst).Operations.Count-1 do
              dialogs.ShowMessage(TOperationPolicy(lst).Operations[j].ID);
    finally
      lst.free;
      lBizURL.free;
    end;


end;

lxs202

谢谢，我是没有做这个lst:=Tlist.create;
结账