Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

текст!

17K
03 июня 2006 года
CapitnBlack
4 / / 01.06.2006
Доброго Времени Суток!
У меня такая проблема :
создаю типизированный файл
Type question = record
que:string;-это вопрос
vars:array[1..3] of string; варианты ответа
end;
...
var
f:file of question;
q:question;
...
записываю в него данные( по-русски ), а когда вывожу на экран в графическом режиме, то вместо букв - каракули. Как только не изворачивался, но ничего не помогает...
А если писать латиницей, то почему-то он обрывает текст на полуслове.
читаю текст:
read(f,q);
Подскажите как быть.
269
03 июня 2006 года
Greenering
892 / / 04.02.2003
[QUOTE=CapitnBlack]Доброго Времени Суток!
записываю в него данные( по-русски ), а когда вывожу на экран в графическом режиме, то вместо букв - каракули. Как только не изворачивался, но ничего не помогает...
[/QUOTE]ПаскалЯ желательно обучить русскому т.е. нужны дрова русской клавы (ruskey или keyrus они звались)
или модуль RusFont
[QUOTE=CapitnBlack]
А если писать латиницей, то почему-то он обрывает текст на полуслове.
читаю текст:
read(f,q);
Подскажите как быть.[/QUOTE]
вот бы на сам исходничек глянуть...
273
04 июня 2006 года
3A3-968M
1.2K / / 22.12.2005
На пол слове скорее из-за того, что файл не закрываешь через close(f)
366
08 июня 2006 года
int
668 / / 30.03.2005
Кстати, я нашёл очень необычный выход из этой ситуации. Когда я ещё сидел в DOS (с виндовой эмуляцией это вроде не прокатывает), то для того, чтобы в паскале появился русский текст, надо было зупустить игру wolf3d и выйти из неё =)) Все последующие паскальные проги начинали нормально выводить русский текст.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог