Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как просмотреть текст DOS? [D5, Win95/98, WinME, NT4, Win2k, WinXP]


Страницы:   1 2

b69 ©   (2002-12-29 17:09:00) 

Как просмотреть текст DOS RichEdit"ом(без помощи функции OemToChar)? Ставлю Font.Charset:=OEM_CHARSET и ничего не происходит.


b69   (2002-12-30 08:22:00) [21]

С Terminal всё нормально, почему OemToChar не работает?


Anatoly Podgoretsky   (2002-12-29 20:32:00) [22]

Если у тебя с этим шрифтом не показывает, то значит у тебя проблемы с локализацией системы, проверить можешь если используешь стиль Terminal


b69   (2002-12-29 20:07:00) [23]

У меня Courier New, а вообще мне нужно для любого шрифта. А функция OemToChar или OemToCharBuff или CharToOem

procedure TForm1.Button2Click(Sender: TObject);
var Src, Str:PChar;
begin
Src := RichEdit1.Lines.GetText;
OemToCharBuff(Src, Str,Length(Src));
RichEdit1.Lines.Text := StrPas(Str);
end;

вызывают "Access Violation...". В чём дело?


Anatoly Podgoretsky   (2002-12-29 19:11:00) [24]

Тебе виднее какой у тебя стоит


b69   (2002-12-29 18:58:00) [25]

Какой шрифт?


Anatoly Podgoretsky   (2002-12-29 17:36:00) [26]

Может у тебя на юникод шрифт


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо