текст!
У меня такая проблема :
создаю типизированный файл
Type question = record
que:string;-это вопрос
vars:array[1..3] of string; варианты ответа
end;
...
var
f:file of question;
q:question;
...
записываю в него данные( по-русски ), а когда вывожу на экран в графическом режиме, то вместо букв - каракули. Как только не изворачивался, но ничего не помогает...
А если писать латиницей, то почему-то он обрывает текст на полуслове.
читаю текст:
read(f,q);
Подскажите как быть.
записываю в него данные( по-русски ), а когда вывожу на экран в графическом режиме, то вместо букв - каракули. Как только не изворачивался, но ничего не помогает...
[/QUOTE]ПаскалЯ желательно обучить русскому т.е. нужны дрова русской клавы (ruskey или keyrus они звались)
или модуль RusFont
[QUOTE=CapitnBlack]
А если писать латиницей, то почему-то он обрывает текст на полуслове.
читаю текст:
read(f,q);
Подскажите как быть.[/QUOTE]
вот бы на сам исходничек глянуть...
На пол слове скорее из-за того, что файл не закрываешь через close(f)
Кстати, я нашёл очень необычный выход из этой ситуации. Когда я ещё сидел в DOS (с виндовой эмуляцией это вроде не прокатывает), то для того, чтобы в паскале появился русский текст, надо было зупустить игру wolf3d и выйти из неё =)) Все последующие паскальные проги начинали нормально выводить русский текст.