Главная страница
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.063 c
15-1140181613
roottim
2006-02-17 16:06
2006.03.26
gmail


2-1141658303
KyRo
2006-03-06 18:18
2006.03.26
Как Перевести число


1-1140678976
kyn66
2006-02-23 10:16
2006.03.26
Найти пароль в файле Excel.


4-1136631724
Igor_thief
2006-01-07 14:02
2006.03.26
Системный курсор


2-1141629214
Bratskiy
2006-03-06 10:13
2006.03.26
Выравнивание Label