Форум: "Потрепаться";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];

Вниз

У кого-нибудь есть таблицы перехода из Кои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;

---

← →
Anatoly Podgoretsky   (2002-08-05 13:48) [6]

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

---

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

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

---

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

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

---

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

Форум: "Потрепаться";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c