Форум: "Основная";
Поиск по всему сайту: 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.035 c
3-80752           ak                    2002-04-03 17:03  2002.04.25  
Как сделать SQL-запрос?


4-81117           BVS                   2002-02-06 17:15  2002.04.25  
Как создать динамический масив?


14-81081          VATERMAN              2002-03-20 19:56  2002.04.25  
АРI-функции


1-80912           @andrew               2002-04-15 12:49  2002.04.25  
ПРИВЕТ ВСЕМ! Хочу распечатать Канвас...


3-80803           trever                2002-04-05 10:22  2002.04.25  
Помогите советом, пожалуйста!