|
|
楼主 |
发表于 2007-7-6 10:24:07
|
显示全部楼层
找到了这个函数，想问一下函数的两个参数如何传入阿？
static Function TKDLDLGZP.CheckPersonOwnFunc(FuncURL:String ersonURL:String):Boolean;
{判断某人是否为某功能的拥有者}
var
lOrgFuncAllocItems: TOrgFuncAllocItems;
I: integer;
lOrgUnit: TOrgUnit;
lBizURL: TBizURL;
lOrgFuncKind: TOrgFuncKind;
begin
Result:=False;
lBizURL := TBizURL.Create;
lBizURL.URL := PersonURL;
lOrgUnit := TOrgUnit.Create(lBizUrl);
lOrgFuncKind:= TOrgFuncKind.ofkRun;
lOrgFuncAllocItems := TOrgFuncAllocItems.Create;
try
OrgSys.OrgSystem.GetAllFunc(lOrgUnit,lOrgFuncKind,lOrgFuncAllocItems);
for I := 0 to lOrgFuncAllocItems.Count - 1 do
begin
if FuncURL.Equals(TOrgFuncAllocItem(lOrgFuncAllocItems.Items).FuncURL) then
Result:=True;
end;
finally
lOrgFuncAllocItems.Free;
end;
end; |
|
发表于 2007-7-6 09:47:03