У кого-нибудь есть таблицы перехода из Кои8 в Windows?

← →
Grrey (2002-08-05 10:56) [0]

В роде в нете находил, но она работает не правильно. Некоторые буквы не совпадают.
Может у кого есть готовая процедурка KoiToWin(Str:string):strring?

← →
Ученик © (2002-08-05 11:02) [1]

const
KoiWinMap : array[192..255] of Char =
"юaбцдефгхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ";

function Koi2WinChar(C : Char) : Char;
begin
case Ord(C) of
$A3 : C := "ё";
$B3 : C := "Ё";
$C0..$FF : C := KoiWinMap[Ord(C)];
end;
Koi2WinChar := C
end;

← →
Anatoly Podgoretsky © (2002-08-05 12:15) [2]

Есть у меня.

← →
Grrey (2002-08-05 13:41) [3]

To Ученик> Чего-то неправильный этот фанкшн!
Вместо "Содержание" выдает
"\"d1\"ee\"e4\"e5\"f0\"e6\"e0\"ed\"e8\"e5" В шеснадцатиричном коде и еще лишнее добавляет!
То Anatoly Podgoretsky> Если не жалко, на маил или здесь можете выложить?

← →
Grrey (2002-08-05 13:44) [4]

Извените с мылом ошибся...
это првильное : sergrey@mail.ru

← →
Ученик © (2002-08-05 13:47) [5]

"\"d1\"ee\"e4\"e5\"f0\"e6\"e0\"ed\"e8\"e5" - Содержание

function Koi2Win(const S : String) : String;
var
i : Integer;
begin
Result := S;
for i := 1 to Length(Result) do
Result[i] := Koi2WinChar(Result[i]);
end;

Grrey (05.08.02 13:41)
Нет, это твоя задача забрать

← →
Grrey (2002-08-06 08:12) [7]

То Ученик> Да я так и делаю!

← →
Grrey (2002-08-06 08:45) [8]

Бальшое СПАСИБО!!!
Все работает!!!

У кого-нибудь есть таблицы перехода из Кои8 в Windows? Найти похожие ветки