Главная | Каталог статей | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта
Категории раздела
PHP [0]
Видео уроки [0]
DELPHI [45]
BASIC [0]
HTML [0]
JAVA [0]
C++ / C# [0]
Радио
ЧАТ
200
Облако тегов
Облако фото
Форум
  • композитная арматура (0)
  • Справедливо ли это???? (1)
  • Недвижимость в Тюмени (1)
  • Качество услуг и обслуживания (2)
  • строительный эксперт (0)
  • гид по Греции (0)
  • винные туры по Италии (0)
  • деревянные лестницы (0)
  • гид по Италии (0)
  • Разные поздравления (1)
    		•
    Главная » Статьи » Программисту » DELPHI
    Стилизатор
    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.
    Категория: DELPHI | Добавил: SeM (23.03.2011)
    Просмотров: 395 | Теги: стилизатор, Delphi | Рейтинг: 0.0/0
    Всего комментариев: 0
    Добавлять комментарии могут только зарегистрированные пользователи.
    [ Регистрация | Вход ]
    Поиск по сайту
    Новый Год
    Опрос
    Добавить на сайт?
    Всего ответов: 6
    Всего голосовало: 6
    Обсудить на форуме
    Друзья сайта
    измерьте скорость интернета Яндекс.Метрика
    Проверить тИЦ и PR
    Статистика
    Погода
    Яндекс.Погода
    Коменнтарии
    Delphi. Создание компонентов
    Не за что ))

    Delphi. Создание компонентов
    Извиняюсь, заработал. Спасибо за урок biggrin

    Delphi. Создание компонентов
    Компонент не работает

    Radio Play
    Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?

    настройка скрытого TeamViewera
    у меня все работает!

    настройка скрытого TeamViewera
    Нифига не робит...
    Кто знает как сделать чтобы на жесткий жертвы сохранял..
    ISQ 606017777

    Танчики
    FSDGHDFJHRG

    Танчики
    V5TGRH

    Отзывы Фото
    6 МИКР
    6 микр. Красивое место....

    Ершов
    Ершов ))))

    Старый музей
    Старый музей но щас его перенесли...

    ПодГора
    Фотография под горы smile

    Закат
    Красивое фото!!! smile
    Copyright MyCorp © 2024