Главная страница
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.034 c
10-1110390853
Nicolas1989
2005-03-09 20:54
2006.03.26
Как вставить строку в Excel через ExcelApplication?


4-1136362557
anatolyz
2006-01-04 11:15
2006.03.26
Передача данных через модем (COM-порт)


2-1141825580
r@dius
2006-03-08 16:46
2006.03.26
Выбор обработчика событий


2-1142056505
The X
2006-03-11 08:55
2006.03.26
Ввод даты в поле Date.


15-1141571862
LordOfRock
2006-03-05 18:17
2006.03.26
Убедите меня....