Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

}{0TT@БЬIЧ

01.01.2007

Автор: Александр

unit Stilizator;
 
interface
 
uses
 
Windows, Messages,  Classes, Graphics, Controls, Forms, Dialogs,
 
StdCtrls, XPMan;
 
type
  TForm1
= class(TForm)
   
MemoSource: TMemo;
   
MemoDest: TMemo;
   
Button: TButton;
    XPManifest1
: TXPManifest;
    procedure
ButtonClick(Sender: TObject);
    procedure
FormCreate(Sender: TObject);
 
 
private
   
{ Private declarations }
 
public
    procedure
ConvertText(Letter: String);
 
end;
 
var
  Form1
: TForm1;
  RS
: Array [0..65] of String;
  PRS
: Array [0..65] of String;
  ES
: Array [0..51] of String;
  PPS
: Array [0..51] of String;
 
implementation
 
uses
AboutUnit;
 
{$R *.DFM}
 
procedure TForm1
.FormCreate(Sender: TObject);
begin
RS
[0]:='а'; PRS[0]:='@';
RS
[1]:='б'; PRS[1]:='6';
RS
[2]:='в'; PRS[2]:='B';
RS
[3]:='г'; PRS[3]:='r';
RS
[4]:='д'; PRS[4]:='g';
RS
[5]:='е'; PRS[5]:='e';
RS
[6]:='ё'; PRS[6]:='e';
RS
[7]:='ж'; PRS[7]:='}|{';
RS
[8]:='з'; PRS[8]:='3';
RS
[9]:='и'; PRS[9]:='u';
RS
[10]:='й'; PRS[10]:='u';
RS
[11]:='к'; PRS[11]:='k';
RS
[12]:='л'; PRS[12]:='JI';
RS
[13]:='м'; PRS[13]:='M';
RS
[14]:='н'; PRS[14]:='H';
RS
[15]:='о'; PRS[15]:='o';
RS
[16]:='п'; PRS[16]:='n';
RS
[17]:='р'; PRS[17]:='p';
RS
[18]:='с'; PRS[18]:='c';
RS
[19]:='т'; PRS[19]:='T';
RS
[20]:='у'; PRS[20]:='y';
RS
[21]:='ф'; PRS[21]:='%';
RS
[22]:='х'; PRS[22]:='x';
RS
[23]:='ц'; PRS[23]:='?';
RS
[24]:='ч'; PRS[24]:='4';
RS
[25]:='ш'; PRS[25]:='III';
RS
[26]:='щ'; PRS[26]:='III,';
RS
[27]:='ъ'; PRS[27]:='b';
RS
[28]:='ы'; PRS[28]:='bI';
RS
[29]:='ь'; PRS[29]:='b';
RS
[30]:='э'; PRS[30]:='&';
RS
[31]:='ю'; PRS[31]:='I-o';
RS
[32]:='я'; PRS[32]:='9I';
RS
[33]:='А'; PRS[33]:='A';
RS
[34]:='Б'; PRS[34]:='6';
RS
[35]:='В'; PRS[35]:='B';
RS
[36]:='Г'; PRS[36]:='r';
RS
[37]:='Д'; PRS[37]:='g';
RS
[38]:='Е'; PRS[38]:='E';
RS
[39]:='Ё'; PRS[39]:='E';
RS
[40]:='Ж'; PRS[40]:='}|{';
RS
[41]:='З'; PRS[41]:='3';
RS
[42]:='И'; PRS[42]:='U';
RS
[43]:='Й'; PRS[43]:='U';
RS
[44]:='К'; PRS[44]:='K';
RS
[45]:='Л'; PRS[45]:='JL';
RS
[46]:='М'; PRS[46]:='M';
RS
[47]:='Н'; PRS[47]:='H';
RS
[48]:='О'; PRS[48]:='O';
RS
[49]:='П'; PRS[49]:='n';
RS
[50]:='Р'; PRS[50]:='p';
RS
[51]:='С'; PRS[51]:='c';
RS
[52]:='Т'; PRS[52]:='T';
RS
[53]:='У'; PRS[53]:='Y';
RS
[54]:='Ф'; PRS[54]:='%';
RS
[55]:='Х'; PRS[55]:='X';
RS
[56]:='Ц'; PRS[56]:='?';
RS
[57]:='Ч'; PRS[57]:='4';
RS
[58]:='Ш'; PRS[58]:='III';
RS
[59]:='Щ'; PRS[59]:='III,';
RS
[60]:='Ъ'; PRS[60]:='b';
RS
[61]:='Ы'; PRS[61]:='bI';
RS
[62]:='Ь'; PRS[62]:='b';
RS
[63]:='Э'; PRS[63]:='&';
RS
[64]:='Ю'; PRS[64]:='I-O';
RS
[65]:='Я'; PRS[65]:='9I';
ES
[0]:='a'; PPS[0]:='@';
ES
[1]:='b'; PPS[1]:='6';
ES
[2]:='c'; PPS[2]:='|_|,';
ES
[3]:='d'; PPS[3]:=',^,';
ES
[4]:='e'; PPS[4]:='e';
ES
[5]:='f'; PPS[5]:='%';
ES
[6]:='g'; PPS[6]:='|"';
ES
[7]:='h'; PPS[7]:='][';
ES
[8]:='i'; PPS[8]:='|/|';
ES
[9]:='j'; PPS[9]:='>|<';
ES
[10]:='k'; PPS[10]:='K';
ES
[11]:='l'; PPS[11]:='/\';
ES[12]:='
m'; PPS[12]:='M';
ES[13]:='
n'; PPS[13]:='|-|';
ES[14]:='
o'; PPS[14]:='0';
ES[15]:='
p'; PPS[15]:='n';
ES[16]:='
q'; PPS[16]:='k|3';
ES[17]:='
r'; PPS[17]:='P';
ES[18]:='
s'; PPS[18]:='$';
ES[19]:='
t'; PPS[19]:='T';
ES[20]:='
u'; PPS[20]:='Y';
ES[21]:='
v'; PPS[21]:='\/';
ES[22]:='
w'; PPS[22]:='|3';
ES[23]:='
x'; PPS[23]:='kc';
ES[24]:='
y'; PPS[24]:='9';
ES[25]:='
z'; PPS[25]:='3';
ES[26]:='
A'; PPS[26]:='@';
ES[27]:='
B'; PPS[27]:='6';
ES[28]:='
C'; PPS[28]:='|_|,';
ES[29]:='
D'; PPS[29]:=',^,';
ES[30]:='
E'; PPS[30]:='E';
ES[31]:='
F'; PPS[31]:='%';
ES[32]:='
G'; PPS[32]:='|"';
ES[33]:='H'; PPS[33]:='}{';
ES[34]:='I'; PPS[34]:='|/|';
ES[35]:='J'; PPS[35]:='>|<';
ES[36]:='K'; PPS[36]:='K';
ES[37]:='L'; PPS[37]:='/\';
ES[38]:='M'; PPS[38]:='M';
ES[39]:='N'; PPS[39]:='|-|';
ES[40]:='O'; PPS[40]:='0';
ES[41]:='P'; PPS[41]:='n';
ES[42]:='Q'; PPS[42]:='K|3';
ES[43]:='R'; PPS[43]:='P';
ES[44]:='S'; PPS[44]:='$';
ES[45]:='T'; PPS[45]:='T';
ES[46]:='U'; PPS[46]:='Y';
ES[47]:='V'; PPS[47]:='\/';
ES[48]:='W'; PPS[48]:='|3';
ES[49]:='X'; PPS[49]:='][';
ES[50]:='Y'; PPS[50]:='9';
ES[51]:='Z'; PPS[51]:='3';
 
end;
 
procedure TForm1.ButtonClick(Sender: TObject);
var
  i : Integer;
  Letter : String;
begin
  MemoDest.Clear;
  for i := 0 to MemoSource.GetTextLen - 1 do begin
    MemoSource.SelStart := i;
    MemoSource.SelLength := 1;
    Letter := MemoSource.SelText;
    ConvertText(Letter);
    Sleep(5)
    end;
 
 
  MemoSource.SelLength := 0;
end;
 
procedure TForm1.ConvertText(Letter: String);
var
  i : Integer;
begin
  for i := 0 to 65 do begin
    if Letter = RS[i] then
      Letter := PRS[i];
  end;
  for i := 0 to 51 do begin
    if Letter = ES[i] then
      Letter := PPS[i];
  end;
  MemoDest.Text := MemoDest.Text + Letter;
end;
 
end.
https://delphiworld.narod.ru/

DelphiWorld 6.0