Turbo Vision

[NISKc]

Господа,прошу помощи.
Есть задача: написать метод TGroup.CountOfButton,определяющий число кнопок в группе.
Вот что-то такого рода:
function TGroup.CountOfButton:integer;
var
Count: PButton;
k:integer;
begin
Count:= current;
k:=0;
if Count<>nil then
repeat
k:= k + 1;
Count := Count^.next;
until (Count = current);
end;

[Алексей_2012]

можно перебрать все компоненты на форме, и если это кнопка, то инкрементить число...

[NISKc]

Да. Спасибо. Разобрался)

[Илья Шушарин]

Скинь как ты сделал пожалуйста.