Главная страница
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.02 c
1-79869
WG
2004-02-10 14:50
2004.02.25
Как спрятать приложение в трэй (к часам ?)


1-79740
DimonNew
2004-02-11 11:04
2004.02.25
OnCreate


14-80168
RealRascal
2004-01-01 16:41
2004.02.25
Мониторы: яркость, цвет фона, облучение и энегропотребление...


4-80378
devil_dk
2003-12-20 01:13
2004.02.25
Создать рабочий стол


3-79645
deadbitch
2004-01-28 16:07
2004.02.25
Пустые клетки в Excel через ADO