Turbo vision группы

[DartShim]

написать метод CountOfGroup (TGroup) подсчитывающий количество групп в группе.

function TGroup.CountOfGroup:integer;
var mylast: PView;i:integer;
begin
mylast:last;
i:=0;
repeat
if (элемент=группа) then i:=i+1;
mylast:=mylast^.next;
until (mylast=last);
CountOfGroup:=i;
end;

как проверить является ли элемент в грппе группой? если использовать type of то как?он дает указатель на твм объекта,как этим можно воспользоваться?

[_-Re@l-_]

количество групп в группе.

э-э-э-э...Да?

[DartShim]

??? в группе подэлементы,надо подсчитать сколько подэлементов-групп в группе(ну или сколько подэлементов не является терминальными видимыми элементами)

[_-Re@l-_]

Так бы сразу и сказал.