Не работает стандартная функция ComponentCount! В чем дело?

← →
Dimases (2004-06-21 22:54) [0]

procedure clear;
var i: Integer;
begin
for i := 0 to ComponentCount-1 do
if Components[i] is TButton
then
TButton(Components[I]).Visible:=false ;
end;

"Components[I]" так же вызывает ошибку типа Undeclared identifier. Что не то?

Delphi 5

← →
RealRascal © (2004-06-21 22:57) [1]

(cmponents[i] as TButton).visible:=False

← →
GuAV © (2004-06-21 22:58) [2]

>стандартная функция ComponentCount
это не стаднартная функция а метод. метод формы например.

← →
RealRascal © (2004-06-21 23:01) [3]

задекларируй эту процедуру внутри объявления TForm
или
указывай
Form1.ComponentCount

← →
GuAV © (2004-06-21 23:02) [4]

вернее componentcount, конечно, не метод а свойство.
для того, чтоб это работало clear должен быть методом того объекта, откуда требуется удалить компоненты.

> [3] RealRascal © (21.06.04 23:01)
> задекларируй эту процедуру внутри объявления TForm

ошибочка вышла
внутри объявления TForm1

> RealRascal

Бред.

См. GuAV © (21.06.04 23:02) [4]
или типа этого:
procedure HideButtons(ParentComponent: TComponent); var i: Integer; begin for i := 0 to ParentComponent.ComponentCount-1 do if ParentComponent.Components[i] is TButton then TButton(ParentComponent.Components[I]).Visible := false; end;

Не работает стандартная функция ComponentCount! В чем дело? Найти похожие ветки