VPF::Имена компонентов в массиве - Форум программистов

CODARZ

Дата 4.10.2003, 13:29 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

У меня следущая проблема:

Есть цикл. С помощью этого цикла несколько однотипных
компонентов должны совершить одно и тоже действие.
Все имена компонентов должны содержатся в массиве
components типа string.

Цикл должен увеличивать переменную i
и тем самым сменять компонент...

Как это сделать?...

<Spawn>

Дата 4.10.2003, 13:43 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Думаю, что для этого не нужно содержать имена компонентов в стринговом массиве.

задаешь массив компонентов(на примере с TLabel):

Код

Components:array[0..3] of TLabel;

затем, допустим, на OnCreate формы заполняешь этот массив нужными тебе компонентами:

Код

Components[0]:=Label1;
Components[1]:=Label2;
Components[2]:=Label3;
Components[3]:=Label4;

Затем когда тебе нужно обратиться к какому нить свойству\методу всех этих компонентов, запускаешь цикл:

Код

for i:=0 to 3 do
 Comonents[i].Caption:=Format('TestCaption%d',[i]);

Это сообщение отредактировал(а) <Spawn> - 4.10.2003, 13:43

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

CODARZ

Дата 4.10.2003, 13:51 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

А как быть если компоненты разных типов?

CODARZ

Дата 4.10.2003, 14:04 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Все, спасибо, я уже разоюрался.
Для использования различных типов компонентов
можно сделать вот так

Код


Components:array[0..3] of TComponent;

Это сообщение отредактировал(а) CODARZ - 4.10.2003, 14:05

CODARZ

Дата 4.10.2003, 14:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Цитата(CODARZ @ 4.10.2003, 14:04)

Все, спасибо, я уже разоюрался.
Для использования различных типов компонентов
можно сделать вот так

Код


Components:array[0..3] of TComponent;

Не... все-таки это всеравно не работает... только что проверил...
Оказывается не пашет...

<Spawn>

Дата 4.10.2003, 15:36 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

какие компоненты используешь?

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

CODARZ

Дата 4.10.2003, 16:07 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Цитата

какие компоненты используешь?

Из библиотеки компонентов DCPCrypt.
Компоненты для шифрования файлов,
для каждого алгоритма свой компонент...

<Spawn>

Дата 4.10.2003, 16:16 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Посмотри какой у них общий предок и его используй. Нажми Ctrl и кликни на название обьекта - там видно будет от какого класса он наследуется.

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

CODARZ

Дата 4.10.2003, 16:28 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Цитата

Там у каждого компонента разные классы у одних TDCP_blockcipher128 у
других TDCP_blockcipher64, поэтому не можешь сказать как вызвать
компонент просто по номеру

Например:
Я переименую все компоненты как CryptComponent1,2,3,4,5,6,7 и т.д.
и чтобы можно было просто подставить номер и вызвать компонет,
вот по такому шаблону:

CryptComponent[номер копонента].EncryptString(F.Text);

Скажи если знаешь, plz...

<Spawn>

Дата 4.10.2003, 16:35 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Ну дак посмотри какой предок у этих TDCP_blockciper128, TDCP_blockciper64 до тех пор пока не найдешь общего(TObject ты точно найдешь ))))) ). Если их общий предок не будет обладать нужным тебе методом, то можно сделать так:

Код

for i:=0 to 3 do
  if Components[i] is TDCP_blockciper128 then
    TDCP_blockciper128(Components[i]).EncryptString(F.Text)
  else
  if Components[i] is TDCP_blockciper64 then
    TDCP_blockciper64(Components[i]).EncryptString(F.Text)
 //и т.д.

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

CODARZ

Дата 4.10.2003, 16:40 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Цитата

Код

for i:=0 to 3 do
  if Components[i] is TDCP_blockciper128 then
    TDCP_blockciper128(Components[i]).EncryptString(F.Text)
  else
  if Components[i] is TDCP_blockciper64 then
    TDCP_blockciper64(Components[i]).EncryptString(F.Text)
 //и т.д.

Я нашел, это - TDCP_cipher
надеюсь сработает

Это сообщение отредактировал(а) CODARZ - 4.10.2003, 16:42

CODARZ

Дата 4.10.2003, 16:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Цитата

Код

for i:=0 to 3 do
  if Components[i] is TDCP_blockciper128 then
    TDCP_blockciper128(Components[i]).EncryptString(F.Text)
  else
  if Components[i] is TDCP_blockciper64 then
    TDCP_blockciper64(Components[i]).EncryptString(F.Text)
 //и т.д.

Кажется работает, вот только боюсь как бы не было проблем
в способах шифрования, а то вдруг чего неправильно зашифруется...

<Spawn>

Дата 4.10.2003, 16:53 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Ну говорю же проверяй операцией is на принадлежность к тому или иному классу и затем делай так как я уже писал.

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

CODARZ

Дата 4.10.2003, 17:07 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Цитата

Ну говорю же проверяй операцией is на принадлежность к тому или иному классу и затем делай так как я уже писал.

Да, все работает, судя по тестам кажется правильно.
Спасбо тебе, из этой темы я узнал много нового и полезного
для себя

Это сообщение отредактировал(а) CODARZ - 4.10.2003, 17:07

<Spawn>

Дата 4.10.2003, 17:25 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Всегда пожалста

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

var-alex

Дата 7.10.2003, 08:14 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.10.2003
Где: Коломна, MCK

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

Слушайте, народ. а компоненты на форме лежат?? Тогда может проще было так:

Код


for i:=0 to 3 do
  begin
     Comp := FindComponent(format('component%d',[i]));
     if comp <> nil then
        begin
           // Делаем что надо с этим компонентом....
        end;
  end;

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