| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Просмотр Dos'овских файлов в RichEdit [D6, Win2k]
Mishenka © (2006-02-26 10:32:00)Загружаю в RichEdit текстовый файл в Dos кодировке. Вместо русских букв высвечиваются иероглифы. Подстановка OEM_CHARSET непомогла. Что тут делать?
Serg1981 (2006-02-26 20:37:00) [1]у меня работает такая фукция:
function DosToWin(St : string) : string;
var Ch : PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;
clickmaker (2006-02-26 11:33:00) [2]
> Mishenka (26.02.06 11:23) [6]
весь текст
ANB (2006-02-26 11:33:00) [3]Но при этом "уйдет" псевдографика и некоторые спецсимволы. Для построчного варианта - то же самое, но дольше.
ANB (2006-02-26 11:32:00) [4]
> То есть надо переводить каждую строку отдельно?
Можно и весь текст зараз.
Mishenka (2006-02-26 11:23:00) [5]
> clickmaker © (26.02.06 11:19) [5]
> OemToChar()
То есть надо переводить каждую строку отдельно?
clickmaker (2006-02-26 11:19:00) [6]OemToChar()
Mishenka (2006-02-26 11:11:00) [7]А что в RichEdit эта проблема не решается?
ANB (2006-02-26 11:09:00) [8]Загружай в MEMO. Это поможет.
Mishenka (2006-02-26 11:03:00) [9]Так я установил, но ничего не изменилось.
ЮЮ (2006-02-26 10:51:00) [10]установи RichEdit.Font Name = Terminal, коль преобразовать влом. Только потом не спрашивай, а как теперь набирать DOS-овскими символами с клавиатуры
| |
