Скачать: CL | DM;

Не работает стандартная функция 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 должен быть методом того объекта, откуда требуется удалить компоненты.

---

← →
RealRascal ©   (2004-06-21 23:08) [5]

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

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

---

← →
evvcom ©   (2004-06-22 00:19) [6]

> 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c