конвертация текста Dos - Win

[greenbegin]

Стоит задача: изменить кодировку текстового файла из DOS на Windows. Подсказали функцию OEMtoShar. Вот только не могу разобраться с синтаксисом этой функции. Все что я пока понял: там используется переменная не типа string, а какого то другого. Будьте добры, не смейтесь, и подскажите на конкретном примере, как используя эту (или подобную) функцию, изменить кодировку текстового файла или переменной типа string, содержащую строку из такого файла.

 

[Silence]

Я использую функцию из библиотеки RxLib - модуль StrUtils или rxStrUtils

function OemToAnsiStr(const OemStr: string): string;
{ OemToAnsiStr translates a string from the OEM character set into the
Windows character set. }

 

[greenbegin]

Я использую функцию из библиотеки RxLib - модуль StrUtils или rxStrUtils

function OemToAnsiStr(const OemStr: string): string;
{ OemToAnsiStr translates a string from the OEM character set into the
Windows character set. }

пишу строку: uses StrUtils;
а при компиляции пишет что такое имя (OemToAnsiStr) не определено.
Что, библиотека RXLib ставится отдельно? Если да, то как ее установить? Я не доставлял библиотеки ни разу.

 

[Barmutik]

RxLib - это отдельна библиотека и ставится отдельно .. надо скачать её...

Сейчас этот проект входит как часть в проект Jedi и соответственно можно скачать с

Ссылка скрыта от гостей

 

[greenbegin]

RxLib - это отдельна библиотека и ставится отдельно .. надо скачать её...

Сейчас этот проект входит как часть в проект Jedi и соответственно можно скачать с

Ссылка скрыта от гостей

Зашел на тот сайт. Но что то не нашел ссылку на RxLib.
Кстати, как ее устанавливать??? Я правда не знаю как.

 

[Barmutik]

Что конкретно не знаете как? Скачайте инсталяцию Jedi и запустите инсталятор .. он всё сделает за Вас ...

 

[vital]

function WinToDos(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
AnsiToOem(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

и дался вам этот RxLib...