DCrypt Передача компонента в качестве параметра

[denidav]

Всем привет. Я использую сторонний компонент 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 - компонент, который передан в аргументах процедуры }

Возможно ли такое?

[Аватар]

Почему нет? Sender как то же передается в обработчиках событий. И не компонент передается, а ссылка на него

[Alex11223]

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

Еще можно попробовать посмотреть на Generics.