Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];

Вниз

перевод в читабельный вид   Найти похожие ветки 

 
Баян 555   (2007-06-15 10:40) [0]

таких штук ъБЗПТПДОЩК ДПН


 
turbouser ©   (2007-06-15 10:48) [1]

Если надо конвертировать из koi8 в win1251 то
http://podgoretsky.com/cgi-bin/dlcounter/npscnt?file=http://podgoretsky.com/ftp/Language/nps/charcvt.zip&file_id=charcvt


 
homm ©   (2007-06-15 10:51) [2]

> перевод в читабельный вид

Для этого нужно знать алгоритм перевода.


 
G_M_S ©   (2007-06-15 12:38) [3]


>  перевод в читабельный вид

unit win2koi;

interface

type
 TConvertChars = array [ #128..#255] of char;

const
 Win_Koi: TConvertChars = (
 #128,#129,#130,#131,#132,#133,#134,#135,#136,#137,#060,#139,#140,#141,#142,#143,
 #144,#145,#146,#147,#148,#169,#150,#151,#152,#153,#154,#062,#176,#157,#183,#159,
 #160,#246,#247,#074,#164,#231,#166,#167,#179,#169,#180,#060,#172,#173,#174,#183,
 #156,#177,#073,#105,#199,#181,#182,#158,#163,#191,#164,#062,#106,#189,#190,#167,
 #225,#226,#247,#231,#228,#229,#246,#250,#233,#234,#235,#236,#237,#238,#239,#240,
 #242,#243,#244,#245,#230,#232,#227,#254,#251,#253,#154,#249,#248,#252,#224,#241,
 #193,#194,#215,#199,#196,#197,#214,#218,#201,#202,#203,#204,#205,#206,#207,#208,
 #210,#211,#212,#213,#198,#200,#195,#222,#219,#221,#223,#217,#216,#220,#192,#209) ;

 Koi_Win: 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) ;

function WinToKoi8(src:String):String;
function Koi8ToWin(src:String):String;

implementation

function WinToKoi8(src:String):String;
var
 i: integer;
begin
 Result:=Src;
 for i:=1 to Length(Src) do
   if Src[i]>#127 then
     Result[i]:=Win_Koi[Src[i]];
end;

function Koi8ToWin(src:String):String;
var
 i: integer;
begin
 Result:=Src;
 for i:=1 to Length(Src) do
   if Src[i]>#127 then
     Result[i]:=Koi_Win[Src[i]];
end;

end.


 
Anatoly Podgoretsky ©   (2007-06-15 13:30) [4]

> homm  (15.06.2007 10:51:02)  [2]

Алгоритм перевода для всех ANSI/OEM одинаков

S[i] := CvtTable(S[i])


 
homm ©   (2007-06-15 13:32) [5]

> Anatoly Podgoretsky ©  

разве CvtTable не изменяеться от кодировок, и не являеться частью алгоритма? :)


 
Anatoly Podgoretsky ©   (2007-06-15 16:09) [6]

> homm  (15.06.2007 13:32:05)  [5]

CvtTable является общим именем для всех таблиц перекодировок.



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

Форум: "Начинающим";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.042 c
15-1181455630
Kolan
2007-06-10 10:07
2007.07.08
Конкурс на самое длинное название из реального проекта :)


15-1180959988
Poed
2007-06-04 16:26
2007.07.08
Как проверить, рабочая ли сетевая карта?


15-1181069898
Суслик
2007-06-05 22:58
2007.07.08
Кто пользует PayPal?


4-1170202435
Gukov
2007-01-31 03:13
2007.07.08
как получить хэндл потока


1-1178612822
nali
2007-05-08 12:27
2007.07.08
Обмен значениями между потоками





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский