 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Имена компонентов в массиве, и использование их в цикле... 
| CODARZ |
|
|||
 Шустрый  Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
У меня следущая проблема:
Есть цикл. С помощью этого цикла несколько однотипных компонентов должны совершить одно и тоже действие. Все имена компонентов должны содержатся в массиве components типа string. Цикл должен увеличивать переменную i и тем самым сменять компонент... Как это сделать?...  |
|||
|
||||
Загрузка ...
| <Spawn> |
|
||||||
 Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Думаю, что для этого не нужно содержать имена компонентов в стринговом массиве.
задаешь массив компонентов(на примере с TLabel):
затем, допустим, на OnCreate формы заполняешь этот массив нужными тебе компонентами:
Затем когда тебе нужно обратиться к какому нить свойству\методу всех этих компонентов, запускаешь цикл:
Это сообщение отредактировал(а) <Spawn> - 4.10.2003, 13:43 -------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
||||||
|
|||||||
| CODARZ |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
А как быть если компоненты разных типов?
|
|||
|
||||
| CODARZ |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
Все, спасибо, я уже разоюрался.
Для использования различных типов компонентов можно сделать вот так
Это сообщение отредактировал(а) CODARZ - 4.10.2003, 14:05 |
|||
|
||||
| CODARZ |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
Не... все-таки это всеравно не работает... только что проверил... Оказывается не пашет...  |
||||
|
|||||
| <Spawn> |
|
|||
|
Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
какие компоненты используешь?
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| CODARZ |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
Из библиотеки компонентов DCPCrypt. Компоненты для шифрования файлов, для каждого алгоритма свой компонент... |
|||
|
||||
| <Spawn> |
|
|||
|
Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Посмотри какой у них общий предок и его используй. Нажми Ctrl и кликни на название обьекта - там видно будет от какого класса он наследуется.
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| CODARZ |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
Там у каждого компонента разные классы у одних TDCP_blockcipher128 у других TDCP_blockcipher64, поэтому не можешь сказать как вызвать компонент просто по номеру Например: Я переименую все компоненты как CryptComponent1,2,3,4,5,6,7 и т.д. и чтобы можно было просто подставить номер и вызвать компонет, вот по такому шаблону: CryptComponent[номер копонента].EncryptString(F.Text); Скажи если знаешь, plz... |
|||
|
||||
| <Spawn> |
|
|||
|
Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Ну дак посмотри какой предок у этих TDCP_blockciper128, TDCP_blockciper64 до тех пор пока не найдешь общего(TObject ты точно найдешь ))))) ). Если их общий предок не будет обладать нужным тебе методом, то можно сделать так:
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| CODARZ |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
Я нашел, это - TDCP_cipher надеюсь сработает  Это сообщение отредактировал(а) CODARZ - 4.10.2003, 16:42 |
||||
|
|||||
| CODARZ |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
Кажется работает, вот только боюсь как бы не было проблем в способах шифрования, а то вдруг чего неправильно зашифруется... |
||||
|
|||||
| <Spawn> |
|
|||
|
Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Ну говорю же проверяй операцией is на принадлежность к тому или иному классу и затем делай так как я уже писал.
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
| CODARZ |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 74 Регистрация: 3.10.2003 Где: Москва Репутация: нет Всего: нет |
Да, все работает, судя по тестам кажется правильно. Спасбо тебе, из этой темы я узнал много нового и полезного для себя  Это сообщение отредактировал(а) CODARZ - 4.10.2003, 17:07 |
|||
|
||||
| <Spawn> |
|
|||
|
Око кары:) Профиль Группа: Экс. модератор Сообщений: 2776 Регистрация: 29.1.2003 Где: Екатеринбург Репутация: 44 Всего: 64 |
Всегда пожалста
-------------------- "Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков. |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0536 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |