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

Вниз

Просмотр Dos овских файлов в RichEdit   Найти похожие ветки 

 
Mishenka   (2006-02-26 10:32) [0]

Загружаю в RichEdit текстовый файл в Dos кодировке. Вместо русских букв высвечиваются иероглифы. Подстановка OEM_CHARSET непомогла. Что тут делать?


 
ЮЮ ©   (2006-02-26 10:51) [1]

установи RichEdit.Font Name = Terminal, коль преобразовать влом. Только потом не спрашивай, а как теперь набирать DOS-овскими символами с клавиатуры


 
Mishenka   (2006-02-26 11:03) [2]

Так я установил, но ничего не изменилось.


 
ANB ©   (2006-02-26 11:09) [3]

Загружай в MEMO. Это поможет.


 
Mishenka   (2006-02-26 11:11) [4]

А что в RichEdit эта проблема не решается?


 
clickmaker ©   (2006-02-26 11:19) [5]

OemToChar()


 
Mishenka   (2006-02-26 11:23) [6]


> clickmaker ©   (26.02.06 11:19) [5]
> OemToChar()

То есть надо переводить каждую строку отдельно?


 
ANB ©   (2006-02-26 11:32) [7]


> То есть надо переводить каждую строку отдельно?

Можно и весь текст зараз.


 
clickmaker ©   (2006-02-26 11:33) [8]


> Mishenka   (26.02.06 11:23) [6]

весь текст


 
ANB ©   (2006-02-26 11:33) [9]

Но при этом "уйдет" псевдографика и некоторые спецсимволы. Для построчного варианта - то же самое, но дольше.


 
Serg1981 ©   (2006-02-26 20:37) [10]

у меня работает такая фукция:
function DosToWin(St : string) : string;
var Ch : PChar;
begin
 Ch := StrAlloc(Length(St) + 1);
 OemToAnsi(PChar(St), Ch);
 Result := Ch;
 StrDispose(Ch)
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.033 c
2-1141905461
fReeZMan
2006-03-09 14:57
2006.03.26
Help!!!! Help!!!


8-1129731831
Torvald
2005-10-19 18:23
2006.03.26
EnumSurfaces в контексте потока чужего процесса


2-1141913478
Новочеркасский Волк
2006-03-09 17:11
2006.03.26
Интересные компоненты.


15-1141544457
Новичоккк
2006-03-05 10:40
2006.03.26
Коды мнемоник


15-1141643051
Kaban
2006-03-06 14:04
2006.03.26
Пиксел