修改为
var
I, J: Integer;
lInfo: TInfo;
begin
for I := 0 to CurrentFunc.Context.ChildCount - 1 do
if CurrentFunc.Context.Children[I].Owner is TInfo then
begin
lInfo := CurrentFunc.Context.Children[I].Owner as TInfo;
for J := 0 to lInfo.DataSetCount - 1 do
begin
if lInfo.DataSets[J].Active then
ANavBar.BindDataSet(lInfo.DataSets[J]);
end;
end;
ANavBar.ReloadRelevancies(CurrentFunc.Context, CurrentFunc.BizClassURL.BizURL.URL);
end;