
Почему так,или что-то надо настроить?
Модератор: Модераторы
writeln(UTF8ToConsole(s));
Mr.Smart писал(а):Правой кнопкой мыши в редакторе. В меню выдираем пункт "Параметры файла->Кодировка->CP866".
Данная кодировка используется в консольных программах Windows.
mtdu писал(а):В книге "Основы программирования в среде Lazarus" страница 70 написано подробно как быть.
program project1;
Uses FileUtil;
Var s1,s2,s3:UTF8String;
begin
s1:='Введите предложение:';
write(UTF8ToConsole(s1));
readln(s2);
s2:=ConsoleToUTF8(s2);
s3:='Вы ввели:';
writeln(UTF8ToConsole(s3),UTF8ToConsole(s2));
end.
SSerge писал(а):Иллюстрация "старого подхода".
Внимание!!! Lazarus должен быть исключительно "официальный", релизный , функции преобразования в так называемых "последних" версиях на компиляторе 2.7.1 обычно испорчены до необратимого состояния. Файл - в кодировке UTF8.
- Код: Выделить всё
program project1;
Uses FileUtil;
Var s1,s2,s3:UTF8String;
begin
s1:='Введите предложение:';
write(UTF8ToConsole(s1));
readln(s2);
s2:=ConsoleToUTF8(s2);
s3:='Вы ввели:';
writeln(UTF8ToConsole(s3),UTF8ToConsole(s2));
end.
...вообще то лазарус не предназначен для работы с консолью.
SSerge писал(а):Как до консоли добираетесь?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 269