Delphi. Трюки и эффекты

Объявление типов и класса нашей формы

type

TRusLetters = set of Char;

TfmEncryptingAutoKey = class(TForm)

mmDecryptMessage: TMemo;

mmEncryptMessage: TMemo;

lbDecryptMessage: TLabel;

lbEncryptMessage: TLabel;

btnEncryptMessage: TButton;

btnDecpyptMessage: TButton;

edKey: TEdit;

lbKey: TLabel;

procedure btnEncryptMessageClick(Sender: TObject);

procedure btnDecpyptMessageClick(Sender: TObject);

private

{ Private declarations }

function GetKey: String;

function EncryptString(strEncryptMsg: String;

var strKey: String): String;

function DecryptString(strDecryptMsg: String;

var strKey: String): String;

procedure EncryptDecrypt(SrcLines, DstLines: TStrings;

bEncrypt: Boolean);

public

{ Public declarations }

end;

const

RusLetters: TRusLetters = [\'А\'..’я’];

var

fmEncryptingAutoKey: TfmEncryptingAutoKey;