[错误]Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY.DIR\STANDARDSTYLEMAINFORM.FORM.PAS(783, 26): Undeclared identifier "Count"
[错误]Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY.DIR\SYSTEMLOGINDIALOG.FORM.PAS(135, 47): Undeclared identifier "Count"
[错误]Biz:\SYSTEM\COMPACTSTYLE\UILIBRARYFOLDER\FORMLIBRARY.LIBRARY.DIR\SYSTEMLOGINDIALOG.FORM.PAS(248, 35): Undeclared identifier "Count"
下面是标准风格主窗体的代码
procedure EnsureFuncItems(AFuncs: TOrgFuncAllocItems; ADefaultPosition: TOperatorPosition);
var
I, J: Integer;
lBizURL: TBizURL;
begin
lBizURL := TBizURL.Create;
try
for I := 0 to AFuncs.Count - 1 do
begin
lBizURL.URL := AFuncs[I].FuncURL;
if ADefaultPosition <> nil then
TSystemCore.Operator.FuncItems.Ensure(lBizURL, ADefaultPosition)
else
for J := 0 to TSystemCore.Operator.PositionCount - 1 do
TSystemCore.Operator.FuncItems.Ensure(lBizURL, TSystemCore.Operator.Positions[J]);
end;
finally
lBizURL.Free;
end;
end; |