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

Вниз

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]

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

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:32) [6]

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

---

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

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

---

← →
Delirium^.Tremens ©   (2003-01-16 10:38) [8]

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

---

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

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

---

← →
Smithson ©   (2003-01-16 10:48) [10]

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

---

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

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

Наверх

Память: 0.48 MB
Время: 0.027 c