Главная страница
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.041 c
1-79741
Manulo
2004-02-11 18:18
2004.02.25
TMainMenu


3-79596
Boroda Oleg
2004-02-02 13:05
2004.02.25
Вопрос к знатокам FIBPlus


8-80046
ACt
2003-10-24 23:04
2004.02.25
MCI device


3-79677
Santer
2004-01-30 13:54
2004.02.25
не могу состыковать Cyrr 866 и ANSI в одном запросе!


1-79757
beginer1
2004-02-11 16:39
2004.02.25
почему р после этого всего P равно Nill