Текущий архив: 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
Время: 1.442 c