Кодировка KOI8-RDelphi , Синтаксис , ПреобразованияКодировка KOI8-R
Автор: Delirium { **** 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) do if Pos(Result[i], ANSI_CODE) > 0 then Result[i] := KOI8_CODE[Pos(Result[i], ANSI_CODE)]; end; Кодировка KOI8-R - утилита, которая конвертирует текст из кодировки Ansi в кодировку KOI8-R. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |