Главная страница
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.024 c
3-79611
Игорь М
2004-01-30 14:24
2004.02.25
В числовом поле, содержится дата...


1-79736
Санек
2004-01-23 13:30
2004.02.25
Использование в пакетах других пакетов


14-80108
BlackLord2003
2004-01-20 19:20
2004.02.25
Office 2003


14-80270
Ann
2004-02-04 10:58
2004.02.25
Контактные линзы и компьютер


11-79687
grumbler
2003-06-04 21:49
2004.02.25
Хочу просто русский проект...