Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Кодировка   Найти похожие ветки 

 
sashapont ©   (2004-08-01 18:00) [0]

Подскажите плиз как можно перекодировать текст, который находится в мемо в кодировку Кои8 Р, полученный с помощью компонента поп3 из раскладки инди?


 
asterian   (2004-09-16 15:38) [1]

Если не смущает тупость подхода =)
function TForm1.ConvertWinToKoi(Text: String):string;
var
 koi, win, output:string;
 i,j: integer;
 repl: boolean;
begin

koi:="þàáöäåôãõèéêëìíîïÿð ñòóæâüûçøýù÷úÞÀÁÖÄÅÔ ÃÕÈÉÊËÌÍÎÏßÐÑÒÓÆÂÜÛÇ ØÝÙ×Ú ";//строка кои8
win:="ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒ ÓÔÕÖרÙÚÛÜÝÞßàáâãäåæ çèéêëìíîïðñòóôõö÷øùú ûüýþÿ ";//строка виндов

output:="";
for i:=1 to Length(Text) do
   begin
 repl:=false;
 for j:=1 to Length(win) do

     if text[i]=koi[j] then
       begin
         repl:=true;
         break;
       end;

 if repl then output:=output+win[j]

 else output:=output+Text[i];
 end;

 ConvertWinToKoi:=output;

 end;



Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
1-1099674663
X
2004-11-05 20:11
2004.11.21
Серийный упорядоченный поиск в массиве


14-1099780854
Knight
2004-11-07 01:40
2004.11.21
Вот везде есть примеры как отправить поток данных по сети...


4-1097339762
Clip
2004-10-09 20:36
2004.11.21
Clipboard (Unicode) -> Clipboard/File (Win-1252)


1-1099926870
Shadow-st
2004-11-08 18:14
2004.11.21
Процедуры


6-1094809027
Samael6
2004-09-10 13:37
2004.11.21
MS Exchange Server чтение базы данных