конвертация текста DOS

← →
greenbegin © (2006-07-03 17:18) [0]

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

← →
Игорь Шевченко © (2006-07-03 17:32) [1]

> или переменной типа string, содержащую строку из такого
> файла

function OemToAnsiStr(const OemStr: string): string;
begin
SetLength(Result, Length(OemStr));
if Length(Result) > 0 then
OemToCharBuff(PChar(OemStr), PChar(Result), Length(Result));
end;
(c) RX Library

конвертация текста DOS - Win Найти похожие ветки