参考代码: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;