Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

Кодировки   Найти похожие ветки 

 
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 есть готовые примеры.



Страницы: 1 вся ветка

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
3-80800
PeteDm
2002-04-05 08:53
2002.04.25
QReport


1-80986
kimblch
2002-04-10 02:29
2002.04.25
Вопрос по OLE-Automation(ранние связывание)


3-80776
Labert
2002-04-04 13:19
2002.04.25
TQuery.Filter не работает


1-80875
Gayrus
2002-04-13 06:59
2002.04.25
A : Array of array of String


3-80824
VAleksey
2002-04-05 14:29
2002.04.25
Refresh для Oracl