{ **** UBPFD *********** by delphibase.endimus.com ****
>> Кодировка KOI8-R
Кодировка из Ansi в KOI8-R
Зависимости: нет
Автор: Delirium, VideoDVD@hotmail.com, ICQ:118395746, Москва
Copyright: Delirium (Master BRAIN) 2003
Дата: 17 октября 2003 г.
***************************************************** }function ANSI2KOI8R(S: string): string;
var
Ansi_CODE, KOI8_CODE: string;
i: integer;
begin
KOI8_CODE := "бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС—Ј";
ANSI_CODE := "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№ё";
Result := S;
for i := 1 to Length(Result) doif Pos(Result[i], ANSI_CODE) > 0 then
Result[i] := KOI8_CODE[Pos(Result[i], ANSI_CODE)];
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Кодировка KOI8-R", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!