Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перебор компонентов, лучший способ 
V
    Опции темы
Burka
Дата 26.6.2007, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 2
Дано: Около 200 компонент, в моем случае типа TLabel, с именем r1, r2, .. , r200 (например)
Как можно в цикле перечислить все эти компоненты, не создавая своих массивов. Вроде в делфи есть уже массивы компонент, как их использовать?

Это сообщение отредактировал(а) Burka - 26.6.2007, 20:50


--------------------
Великие умы обсуждают идеи; средние умы обсуждают события; мелкие умы обсуждают людей.
PM MAIL   Вверх
former
Дата 26.6.2007, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17
Можно так:

Код

procedure ClearLabels;
var  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TLabel) then
      (Components[i] as TLabel).Caption := '';
end;




--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Burka
Дата 26.6.2007, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 2
Спасибо!


--------------------
Великие умы обсуждают идеи; средние умы обсуждают события; мелкие умы обсуждают людей.
PM MAIL   Вверх
ilya198293
Дата 27.6.2007, 07:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет
а как для компонента CheckBox как сделать присвоение Components[i].checked:=true - такой вариант не работает.
--------------------
Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.
PM MAIL   Вверх
MetalFan
Дата 27.6.2007, 08:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
Цитата(ilya198293 @  27.6.2007,  08:36 Найти цитируемый пост)
а как для компонента CheckBox как сделать присвоение Components[i].checked:=true - такой вариант не работает. 

а по аналогии с
Цитата(former @  26.6.2007,  22:24 Найти цитируемый пост)
procedure ClearLabels;
var  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TLabel) then
      (Components[i] as TLabel).Caption := '';
end;

никак?

Код

var  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TCheckbox) then
      (Components[i] as TCheckbox).Checked := True;
end;



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
ilya198293
Дата 27.6.2007, 08:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет
туплю...
читал через строчку
  if (Components[i] is TLabel) then
     ********************.Caption := '';
--------------------
Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.
PM MAIL   Вверх
ilya198293
Дата 27.6.2007, 08:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет
а можно перебирать не компоненты, а процедуры?

Код

  if ComboBox1.Text='12'
    then ComboBoxChange12;
  if ComboBox1.Text='11'
    then ComboBoxChange11;
  if ComboBox1.Text='10'
    then ComboBoxChange10;
  if ComboBox1.Text='9'
    then ComboBoxChange9;
  if ComboBox1.Text='8'
    then ComboBoxChange8;
  if ComboBox1.Text='7'
    then ComboBoxChange7;
  if ComboBox1.Text='6'
    then ComboBoxChange6;

--------------------
Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.
PM MAIL   Вверх
MetalFan
Дата 27.6.2007, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
жэсть. а зачем так? передавай в процедуру обработки содержимое ComboBox1.Text


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
ilya198293
Дата 28.6.2007, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

Репутация: нет
Всего: нет
а в какую процедуру из семи?
если их собрать все в одну, тогда внутри нужно будет ещё больше проверок делать для определения алгоритма расчёта...
просто я думал что можно описать аналогично  (Components[i] as TCheckbox).Checked := True; |для компонента класса TCheckbox свойству Checked присвоить значение True|
что-нибудь типа |запустить процедуру 'ComboBoxChange'+ComboBox1.Text|
--------------------
Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.
PM MAIL   Вверх
Rennigth
Дата 28.6.2007, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 15
Всего: 76
бр...
Код

var
  lCombo: TComboBox;
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TComboBox) then
    begin
      lCombo := TComboBox(Components[i]);
      if Assigned(lCombo).OnChange) then
        lCombo.OnChange(lCombo);
    end;
end;



--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0486 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.