windows-1251>>>koi8-r

← →
Allex (2003-01-16 09:07) [0]

Подскажите как можно перевести текст из обычной кодировки windows-1251 в кодировку koi8-r
Или дайте ссылку где можно почитать это...
Заранее благодарен

← →
Anatoly Podgoretsky © (2003-01-16 10:10) [1]

Стандартная таблица преобразования array[char] of char, в программе в цикле S[i] := Tbl[S[i]
Готовую можешь взять у меня

← →
Chester (2003-01-16 10:14) [2]

работающее решение:

function StrToOem(const AnsiStr: string): string;
begin
SetLength(Result, Length(AnsiStr));
if Length(Result) > 0 then
{$IFDEF WIN32}
CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
{$ELSE}
AnsiToOemBuff(@AnsiStr[1], @Result[1], Length(Result));
{$ENDIF}
end;

← →
Reindeer Moss Eater (2003-01-16 10:16) [3]

Chester должен любить читос, а не торопиться

← →
Allex (2003-01-16 10:20) [4]

Спасибо за совет

← →
Chester (2003-01-16 10:21) [5]

← →
Reindeer Moss Eater (2003-01-16 10:32) [6]

Работающее, но не решение

← →
Anatoly Podgoretsky © (2003-01-16 10:36) [7]

Решение, но не работающее

Reindeer Moss Eater (16.01.03 10:32)
Ну почему же, можно ведь таскать с собой исходники и компилить их на каждом компе под каждой системой.

← →
Reindeer Moss Eater (2003-01-16 10:43) [9]

У многих в качестве OEM кодировки используется koi8-r?

Блин. Ищещь в инете (рунете) описание кодировки koi8-r.
Составляешь массив из этой кодировки (в качестве индекса задаешь русские буквы в windows-1251). Ну а потом простая подстановка по этому массиву.

windows-1251>>>koi8-r Найти похожие ветки