【结贴】如何获得组织机构中每个人员对应的功能权限**

allentime

如题。

zfang

参考代码：Edit2.text是某个人员id；MemoResult是一个TMemo控件
//取得某人员的所有功能和取得某组织单元的功能
procedure TMAINFORM.Button2Click(Sender: TObject);
var
  list: org.TOrgFuncItems;
  I: integer;
begin
  MemoResult.Clear;
  list := org.TOrgFuncItems.Create;
  try
    if org.OrgSys.OrgSystem.GetPersonAllFuncs(edit2.TExt, list) then
      for I := 0 to list.Count - 1 do
        MemoResult.Lines.Add(list.Items[I].FuncDisplayName);
  finally
    list.Free;
  end;
end;

allentime

结贴吧

liyuting730

谁能帮忙翻译一下2楼的代码？
谢谢了。
我要把它运行起来要做什么准备？写到哪个位置呢？