Кодировка
sashapont © (2004-08-01 18:00:00)
Подскажите плиз как можно перекодировать текст, который
находится в мемо в кодировку Кои8 Р, полученный с помощью
компонента поп3 из раскладки инди?
asterian (2004-09-16 15:38:00) [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;
Наверх 
ЧАТ |
Орешник |
|
