Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Как преобразовать текстовый фал 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;



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

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

Наверх




Память: 0.46 MB
Время: 0.062 c
3-79606
Anton.
2004-01-29 08:54
2004.02.25
Как указать параметру значение NULL


1-79796
Vlad
2004-02-11 11:42
2004.02.25
Как получить String имея указатель и длину ?


3-79646
Night Cold
2004-01-31 20:18
2004.02.25
paradox


1-79994
Oleg_
2004-02-13 13:47
2004.02.25
drowing not allowed


1-79882
DimonNew
2004-02-10 12:25
2004.02.25
массив