Форум: "Сети";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];
ВнизКодировка Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c