Как определить состав объектов в скрипте

varjag

Здравствуйте!
Вопрос дилетанта 2:
В скрипте отчета требуется выполнить некие однотипные действия над группой объектов (например, увеличить TOP на заданное значение)
При большом количестве таких объектов скрипт большой. Все объекты относятся к одному владельцу(листу, бэнду...) (т.е. дочерние к нему).
Вопрос: Как перебрать всех членов множества каким-нить For, For Each либо еще каким-то способом.
Хорошо бы это сделать и для сгруппированных объектов, то есть для некоего GroupIndex.

varjag

Отвечу сам

<!--fonto:Courier New--><span style="font-family:Courier New"><!--/fonto-->
procedure Page1OnBeforePrint(Sender: TfrxComponent);
var i:integer;
oo:variant;
begin

for i:= 0 to page1.objects.count-1 do begin
oo:= page1.objects;
showmessage( oo.ClassName() + ' '+oo.Name );
showmessage( oo.GroupIndex );
oo.top := oo.top+10*i
end;
end;<!--fontc--></span><!--/fontc-->

Для Группированных ( GroupIndex не отображается инспектором в свойствах объектов и какое конкретное значение он имеет - кто знает) лучше изменить им например Tag,Description или TagStr (я не знаю, на что эти св-ва могут повлиять ) Тогда их можно визуально контролировать без обеспечения,правда, уникальности значения для разных группировок.