Наполовину разобрался. Оказывается имеет значение с помощью чего я запускаю.
2.6.4 Запускаю из-под FAR'а - наблюдаю проблемы с кодировкой. Запускаю в отдельном окне (через проводник или "start") - всё отлично! Проблем нет от слова вообще.
3.0.0 Всегда запускаю в отдельном окне - проблемы что описал ...
Найдено 3 результата
- 25.12.2015 08:47:09
- Форум: Free Pascal Compiler
- Тема: Ещё раз о кодировках
- Ответы: 13
- Просмотры: 16316
- 25.12.2015 07:50:09
- Форум: Free Pascal Compiler
- Тема: Ещё раз о кодировках
- Ответы: 13
- Просмотры: 16316
Re: Ещё раз о кодировках
Да, исходник в 866 кодировке. Результатом программы является:
1251
Џа®ўҐаЄ
и
Самое интересное оказывается другое. Проверял на другом компьютере, на нём стоит так же Win7 x64 (только ультима, а не про), FreePascal 2.6.4 (но он же на этой машине работает точно так же, как и 3.0.0). Так вот на неё ...
1251
Џа®ўҐаЄ
и
Самое интересное оказывается другое. Проверял на другом компьютере, на нём стоит так же Win7 x64 (только ультима, а не про), FreePascal 2.6.4 (но он же на этой машине работает точно так же, как и 3.0.0). Так вот на неё ...
- 24.12.2015 14:04:23
- Форум: Free Pascal Compiler
- Тема: Ещё раз о кодировках
- Ответы: 13
- Просмотры: 16316
Ещё раз о кодировках
FreePascal 3.0.0. Вот простейшая проверка вывода строки/символа:
uses crt;
var a:string;
c:char;
begin
a:='Проверка';
c:='ш';
writeln(a);
writeln(c);
end.
И получаем иероглифы.
Убираем модуль crt - всё отображается нормально.
Такая конструкция: {$codepage CP866}
uses crt ...
uses crt;
var a:string;
c:char;
begin
a:='Проверка';
c:='ш';
writeln(a);
writeln(c);
end.
И получаем иероглифы.
Убираем модуль crt - всё отображается нормально.
Такая конструкция: {$codepage CP866}
uses crt ...
