Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Кодировки 


Rammst   (2002-04-12 06:42) [0]

Привет All! Как прекодировать koi>win?



gek   (2002-04-12 07:15) [1]


const
Koi_WinChars: TConvertChars = (
#128,#129,#130,#131,#132,#133,#134,#135,#136,#137,#138,#139,#140,#141,#142,#143,
#144,#145,#146,#147,#148,#149,#150,#151,#152,#153,#218,#155,#176,#157,#183,#159,
#160,#161,#162,#184,#186,#165,#166,#191,#168,#169,#170,#171,#172,#173,#174,#175,
#156,#177,#178,#168,#170,#181,#182,#175,#184,#185,#186,#187,#188,#189,#190,#185,
#254,#224,#225,#246,#228,#229,#244,#227,#245,#232,#233,#234,#235,#236,#237,#238,
#239,#255,#240,#241,#242,#243,#230,#226,#252,#251,#231,#248,#253,#249,#247,#250,
#222,#192,#193,#214,#196,#197,#212,#195,#213,#200,#201,#202,#203,#204,#205,#206,
#207,#223,#208,#209,#210,#211,#198,#194,#220,#219,#199,#216,#221,#217,#215,#218);

// ковертирует строку из koi8 в win1251
function Win_KoiConvert(const St: string): string;
var i: integer;
begin
Result:=St;
for i:=1 to Length(St) do
if St[i]>#127 then
Result[i]:=Koi_WinChars[St[i]]
end;



panov   (2002-04-12 07:22) [2]

В королевстве Delphi есть готовые примеры.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.049 c
3-80770           ava                   2002-04-04 14:31  2002.04.25  
SQL


4-81116           Song                  2002-02-19 17:08  2002.04.25  
WM_POWERBROADCAST отловить жд. режим и обратно


3-80819           merr                  2002-04-05 14:13  2002.04.25  
Базы-Paradox


14-81083          Alx2                  2002-03-13 09:11  2002.04.25  
Где на Руси жить хорошо?


3-80834           trever                2002-04-05 13:11  2002.04.25  
Как обновить содержимое дблукапкомбобокса?