}{0TT@БЬIЧ

Previous  Top 

    
 

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

Code:

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.

©Drkb::04654

http://delphiworld.narod.ru/

DelphiWorld 6.0