Форум: "Основная";
Поиск по всему сайту: 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.022 c
1-80919           Ascan                 2002-04-15 10:39  2002.04.25  
Как перехватить функцию <b>GetCursorPos()</b>


1-80934           ppcat                 2002-04-11 15:55  2002.04.25  
Проблема с Quick Report


1-80871           Rammst                2002-04-13 10:29  2002.04.25  
Закрытие программ


3-80742           diMAN                 2002-03-29 18:45  2002.04.25  
Прогресс-бар при выполнении длительных SQL-запросов


1-80968           Rat King              2002-04-08 11:08  2002.04.25  
Технология Plug-Insов