我的测试代码
procedure TMainForm.Button4Click(Sender: TObject);
var
lItems: TOrgFuncAllocItems;
I: Integer;
begin
lItems := TOrgFuncAllocItems.Create;
try
OrgSys.OrgSystem.GetAllFunc( Business.Model.TContextCurrent.Create(Self.Context).PersonMember, TOrgFuncKind.ofkRun, lItems);
for I := 0 to lItems.Count - 1 do
begin
MemoResult.Lines.Add(lItems.Items.FuncURL);
end;
finally
lItems.Free;
end;
end;