Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

как загрузить текстовый файл в ричедит, например ? (файл в досовской кодировке) 


Дмитрий Д.   (2001-12-27 12:28) [0]

Уважаемые! Не сталкивался ли кто с такой проблемой:
Есть некий текстовый файл в досовской кодировке,
мне нужно обрабатывать его построчно, решил использовать для этих целей ричедит, но проблема в том что он как бы не поддерживает оем кодировку...
Подскажите как быть?
перекодировать самому как бы не хотелось, может есть другой путь ?
хочется простого решения задачи, если такое есть :)
Заранее спасибо за помошь!



MBo   (2001-12-27 14:15) [1]

uses ...strutils;// RXlib
richedit1.lines.LoadFromFile("e:\dostext.txt");
richedit1.Lines.text:=oemtoansistr(richedit1.Lines.text);
если нет RX - в Delphi есть практически такая же функция



Дмитрий Д.   (2001-12-27 15:38) [2]

но это все же преобразование, чтобы сбросить обратно в файл нужно будет обратно кодировать.
видимо другого простого пути нет.
Но все равно Спасибо за ответ!



BlackStuff   (2001-12-27 17:11) [3]

А я решил все это просто, у меня вобще была путаница с кодировками, дык я в шрифтах менял и все проходило :)

чтонить.Font.Charset:=OEM_CHARSET;

это в D6, но и в 5х помоему тоже есть.



Дмитрий Д.   (2001-12-28 09:06) [4]

может быть в 6 работает...
у меня 5, и не помогает, хотя по логике все должно быть нормально, когда устанавливаешь фонт например Terminal
В блокноте виндовом этот прием работает, но в делфи к сожалению нет



VadX   (2002-01-05 12:43) [5]

RichEdit1.Lines.LoadFromFile(filename_string);




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
7-66377           Sirgo                 2001-10-07 13:51  2002.01.21  
Температура процесора и системы


4-66398           Delfin                2001-11-21 12:39  2002.01.21  
Как в IE получить доступ к строке адреса


7-66372           artog                 2001-10-04 07:56  2002.01.21  
Не могу получить от таймера интервал 20 мс


6-66316           ant_prg               2001-10-26 15:50  2002.01.21  
Передача звука по сети


4-66403           Floyn                 2001-11-21 18:01  2002.01.21  
Как заставить Excel поймать посланное ему сообщение?