Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.057 c
1-80959           Windeus               2002-04-12 10:08  2002.04.25  
fonts -> rc, Indy smtp


3-80829           Seri                  2002-04-05 07:21  2002.04.25  
Что за файлы DDP в Delphi 6?


3-80777           Sewix                 2002-04-04 12:05  2002.04.25  
Б Д не работает на другом компе


3-80780           слава                 2002-04-04 15:02  2002.04.25  
Перевод таблиц из Delphi в Access


4-81110           SerVS - S             2002-02-18 20:01  2002.04.25  
Подскажите плз как вырубить Ctrl+Alt+Del