Ответы на все вопросы

FAQ / Программирование / Delphi

Как перевести текст в memo из koi-8r в windows-1251??

Вопрос:

    как перевести текст в memo из koi-8r в windows-1251?
    

Ответ:

    Вот простенькая функция перевода из win1251 в koi-8. Как переделать конвертацию обратно, я думаю, будет понятно:
    function TFmMain.WinToKoi (TextWin: string):
    string;
    const
    ABCWIN='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдеёжз
    ийклмнопрстуфхцчшщьыъэюя';
    ABCKOI='бвчзде? цъйклмнопртуфхжигюыэшщяьасБВЧЗДЕ? ЦЪ
    ЙКЛМНОПРТУФХЖИГЮЫЭШЩЯЬАС';
    var
    i, tc: integer;
    begin
    Result: ='';
    for i: =1 to length (TextWin) do begin
    tc: =pos (TextWin[i], ABCWin);
    if tc>0
    then Result: =Result+ABCKoi[tc]
    else Result: =Result+TextWin[i];
    end;
    end;

    Якушев Антон Юрьевич
    

Версия для печати Найти похожие статьи
Поиск по сайту

Архив

ВсПнВтСрЧтПтСб
1234567
891011121314
15161718192021
22232425262728
293012345
6789101112
13141516171819
20212223242526
272829303112



Мы рекомендуем