;(ser[i]==laquo;,raquo;)+=laquo;,raquo;;(ser[i]==laquo; ) += raquo ;; (ser [i] == е ) += ( raquo ;;
} - gt; Memo1- gt; Text=rer;= raquo ;;= raquo ;;
} __ fastcall TForm2 :: Button1Click (TObject * Sender)
{=laquo;raquo;;=laquo;raquo;;(i=1;ilt;=Form2-gt;Memo1-gt;Text.Length();i++)
{+=Form2- gt; Memo1- gt; Text [i];
} (i=1; i lt;=ser.Length (); i ++)
{(ser[i]==laquo;1raquo;)+=laquo;аraquo;;(ser[i]==laquo;2raquo;)+=laquo;вraquo;;(ser[i]==laquo;3raquo;)+=laquo;йraquo;;(ser[i]==laquo;4raquo;)+=laquo;цraquo;;(ser[i]==laquo;5raquo;)+=laquo;уraquo;;(ser[i]==laquo;6raquo;)+=laquo;кraquo;;(ser[i]==laquo;7raquo;)+=laquo;еraquo;;(ser[i]==laquo;8raquo;)+=laquo;нraquo;;(ser[i]==laquo;9raquo;)+=laquo;гraquo;;(ser[i]==laquo;0raquo;)+=laquo;шraquo;;(ser[i]==laquo;+raquo;)+=laquo;щraquo;;(ser[i]==laquo;!raquo;)+=laquo;зraquo;;(ser[i]==laquo;@raquo;)+=laquo;хraquo;;(ser[i]==laquo;$raquo;)+=laquo;ъraquo;;(ser[i]==laquo;*raquo;)+=laquo;фraquo;;(ser[i]==laquo;%raquo;)+=laquo;ыraquo;;(ser[i]==laquo;^raquo;)+=laquo;пraquo;;(ser[i]==laquo;?raquo;)+=laquo;рraquo;;(ser[i]==laquo;amp;raquo;)+=laquo;оraquo;;(ser[i]==laquo;#raquo;)+=laquo;лraquo;;(ser[i]==laquo;=raquo;)+=laquo;дraquo;;(ser[i]==laquo;~raquo;)+=laquo;жraquo;;(ser[i]==laquo;-raquo;)+=laquo;эraquo;;(ser[i]==laquo;lt;raquo;)+=laquo;яraquo;;(ser[i]==laquo;gt;raquo;)+=laquo;чraquo;;(ser[i]==laquo;/raquo;)+=laquo;сraquo;;(ser[i]==laquo;[raquo;)+=laquo;мraquo;;(ser[i]==laquo;]raquo;)+=laquo;иraquo;;(ser[i]==laquo;{raquo;)+=laquo;тraquo;;(ser[i]==laquo;}raquo;)+=laquo;ьraquo;;(ser[i]==laquo;|raquo;)+=laquo;бraquo;;(ser[i]==laquo;:raquo;)+=laquo;юraquo;;(ser[i]==laquo;.raquo;)+=laquo;.raquo;;(ser[i]==laquo;,raquo;)+=laquo;,raquo;;(ser[i]==laquo; ) += raquo ;; (ser [i] == () += е raquo ;;
} - gt; Memo1- gt; Text=rer;= raquo ;;= raquo ;;
} __ fastcall TForm2 :: Button2Click (TObject * Sender)
{- gt; Memo1- gt; Alignment=taLeftJustify;
} __ fastcall TForm2 :: Button3Click (TObject * Sender)
{- gt; Memo1- gt; Alignment=taCenter;
} __ fastcall TForm2 :: Button4Click (TObject * Sender)
{- gt; Memo1- gt; Alignment=taRightJustify;
} __ fastcall TForm2 :: Button5Click (TObject * Sender)
{T; buff=Memo1- gt; Text;//Початкове словоkey=StrToInt (Edit1- gt; Text);//Ключ (Зрушення) (int i=1; i lt;=buff. Length (); i ++)
{= ((unsigned char) buff [i] + key);//Зсув на key
if (T gt;=256) T=T - 255;//Якщо ключ більше 256 (Таблиця символів ASCII) [i]=(char) T;//Нове значення
} - gt; Text=buff;
} __ fastcall TForm2 :: Button6Click (TObject * Sender)
{T; buff=Memo1- gt; Text;//Початкове словоkey=StrToInt (Edit1- gt; Text);//Ключ (Зрушення) (int i=1; i lt;=buff. Length (); i ++)
{= ((unsigned char) buff [i] - key);//Зсув на key
if (T gt;=256) T=T - 255;//Якщо ключ більше 256 (Таблиця символів ASCII) [i]=(char) T;//Нове значення
} - gt; Text=buff;
} __ fastcall TForm2 :: Edit1KeyPress (TObject * Sender, System :: WideChar amp; Key)
{(Key == q ) Key=0; (Key == w ) Key=0; (Key == e ) Key=0; (Key == r ) Key=0; (Key == t ) Key=0; (Key == y ) Key=0; (Key == u ) Key=0; (Key == i ) Key=0; (Key == o ) Key=0; (Key == p ) Key=0; (Key == a ) Key= 0; (Key == s ) Key=0; (Key == d ) Key=0; (Key == f ) Key=0; (Key == g ) Key=0; (Key == h ) Key=0; (Key == j ) Key=0; (Key == k ) Key=0; (Key == l raquo ;) Key=0; (Key == z ) Key=0; (Key == x ) Key=0; (Key == c ) Key=0; (Key == laquo ; v ) Key=0; (Key == b ) Key=0; (Key == n ) Key=0; (Key == n ) Key=0; (Key== m ) Key=0; (Key == ї ) Key=0; (Key == ц ) Key=0; (Key == у ) Key=0; ( Key == до ) Key=0; (Key == е ) Key=0; (Key == н ) Key=0; (Key == г ) Key=0 ; (Key == ш ) Key=0; (Key == щ ) Key=0; (Key == ж ) Key=0; (Key == х ) Key =0; (Key == ь ) Key=0; (Key == ф ) Key=0; (Key == и ) Key=0; (Key == в ) Key=0; (Key == а ) Key=0; (Key == п ) Key=0; (Key == р ) Key=0; (Key == про ) Key=0; (Key == л ) Key=0; (Key == д ) Key=0; (Key == е ) Key=0; (Key == е ) Key=0; (Key == я ) Key=0; (Key == ч ) Key=0; (Key == з ) Key=0; (Key == м ) Key=0; (Key == і ) Key=0; (Key == т ) Key=0; (Key == ь ) Key=0; (Key == б ) Key=0; (Key == ю ) Key=0; (Key == № ) Key=0; (Key == ! ) Key=0; (Key == ~ ) Key=0; (Key == @ ) Key=0; (Key == # ) Key=0; (Key == % ) Key=0; (Key == ^ ) Key=0; (Key == amp; ) Key=0; (Key == * ) Key =0; (Key == () Key=0; (Key == ) ) Key=0; (K...
