Главная страница
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.024 c
4-1097509885
TeNY
2004-10-11 19:51
2004.11.21
Как установавить саретку в TMemo в нужное положение


1-1099897667
zokzok
2004-11-08 10:07
2004.11.21
OnPaint


3-1098865954
Its
2004-10-27 12:32
2004.11.21
Добавление записи в БД


1-1099689667
Kolan
2004-11-06 00:21
2004.11.21
Поле предка


4-1097429834
Clampo
2004-10-10 21:37
2004.11.21
Монитор