Как преобразовать текстовый фал DOS?

← →
RUS (2004-02-11 15:55) [0]

Как осуществить преобразование текстового файла в кодировке ДОС в кодировку ANSI?

Например, чтобы в Memo-поле все отображалось как надо

Спасибо

← →
clickmaker (2004-02-11 15:56) [1]

OemToChar

← →
Oyster (2004-02-11 16:03) [2]

У меня аналогичное было.
Попробуй это:

Function WinToDos(stWin:string):string;
var stDOS:pchar;
begin
getmem(stDOS,1048);
CharToOem(pchar(stWIN),stDOS);
WinToDos := string(stDOS);
freemem(stDOS);
end;

Function DosToWin(stDos:string):string;
var stWin:pchar;
begin
getmem(stWin,1048);
OemToChar(pchar(stDos),stWin);
DosToWin:=string(stWin);
freemem(stWin);
end;

Как преобразовать текстовый фал DOS? Найти похожие ветки