| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dimases ©   (2004-06-21 22:54:00) 

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

---

evvcom   (2004-06-22 00:19:00) [1]

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

---

RealRascal   (2004-06-21 23:08:00) [2]

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

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

---

GuAV   (2004-06-21 23:02:00) [3]

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

---

RealRascal   (2004-06-21 23:01:00) [4]

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

---

GuAV   (2004-06-21 22:58:00) [5]

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

---

RealRascal   (2004-06-21 22:57:00) [6]

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

---

Наверх