VPF::Как удалить все компоненты TLabel На форме

ProgrammistDelphi

Дата 17.2.2005, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

Не могу удалить компоненты, постоянно вызывает ошибку.

Код



for z:=1 to form4.ComponentCount do
Begin
  With form4 do
    Begin
      if Components[z] is TLabel then
          Begin
            TLabel(Components[z]).DestroyComponents;
          end;
    end;

_hunter

Дата 17.2.2005, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

а почему бы просто Free() не вызвать?

--------------------

Tempora mutantur, et nos mutamur in illis...

ProgrammistDelphi

Дата 17.2.2005, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 19.1.2005

Репутация: нет
Всего: нет

Потому, что я не знаю сколько их у меня. Но я уже разобрался. Спасибо. У меня они все были в массиве из массива я и вызвал DestroyComponents

_hunter

Дата 17.2.2005, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

я имел в виду TLabel(Components[z]).Free()

--------------------

Tempora mutantur, et nos mutamur in illis...

Rennigth

Дата 18.2.2005, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

ProgrammistDelphi
кстати в таких случаях лутше делать цикл downto
так лутше вроде:

Код


With form4 do
  for z:=form4.ComponentCount - 1 downto 0 do
     if Components[z] is TLabel then
        TLabel(Components[z]).free;

Добавлено @ 10:05

Код


With form4 do
  for z:=ComponentCount - 1 downto 0 do
    if Components[z] is TLabel then
      TLabel(Components[z]).free;

--------------------

(* Honesta mors turpi vita potior *)

~FoX~

Дата 18.2.2005, 11:26 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Rennigth
downto действительно лучше

ProgrammistDelphi
Попробуй через FindComponent

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »