Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2018, 16:41   #1
denidav
Новичок
Джуниор
 
Регистрация: 11.08.2016
Сообщений: 2
По умолчанию DCrypt Передача компонента в качестве параметра

Всем привет. Я использую сторонний компонент DCPcrypt v2 для шифрования текста. У меня такой вопрос, можно ли передавать компонент в качестве аргумента в процедуре?
Код:
    { Кнопка "зашифровать" в Blowfish }
    DCP_blowfish1 := TDCP_blowfish.Create(Self);
    DCP_blowfish1.InitStr(SecretKeyBlowfish, TDCP_sha1);
    Memo1.Lines.Text := DCP_blowfish1.EncryptString(Memo1.Lines.Text);
    DCP_blowfish1.Burn;
    DCP_blowfish1.Free;
    N21.Visible:=False;
    N22.Visible:=True;
Этот кусок кода повторяется несколько раз с разными компонентами (TDCP_blowfish, TDCP_des и т.д.)
Вот я хочу упростить это все в процедуру. Т.е. это будет как то так:
Код:
DCP_object := TDCP_object.Create(Self)
   { где TDCP_object - компонент, который передан в аргументах процедуры }
Возможно ли такое?
denidav вне форума Ответить с цитированием
Старый 27.03.2018, 16:53   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Почему нет? Sender как то же передается в обработчиках событий. И не компонент передается, а ссылка на него
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 27.03.2018, 16:58   #3
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Посмотрите какой базовый класс у них и передавайте его.
Например TDCP_blockcipher или TDCP_cipher.

Еще можно попробовать посмотреть на Generics.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Передача одной процедуры другой в качестве входящего параметра ProRockX Общие вопросы Delphi 2 02.10.2015 11:32
Хранение и передача метода в качестве параметра RobotMan C# (си шарп) 1 19.06.2012 20:48
Передача хранимой процедуры в качестве параметра в функцию xabik БД в Delphi 5 04.08.2011 11:08
Передача поля объекта в процедуру в качестве параметра Голованов Д. Microsoft Office Excel 10 02.11.2009 16:22
Передача метода класса в качестве параметра в другой метод Dmytry87 Общие вопросы C/C++ 0 12.11.2008 15:28