Русский язык в консольных приложениях

@eugrita · Регистрация: 18.11.2009

Студворк — интернет-сервис помощи студентам

Консольное приложение под Windows 10
Добавляю в список зависимостей проекта LazUtils
составляю тестовую программу

Delphi
1
2
3
4
5
6
7
program LazTest;
uses LazUTF8,Windows;
begin
 SetConsoleOutputCP(CP_UTF8);
 writeln(UTF8ToConsole('Привет на русском языке '));
 readln;
end.

Запускаю и вместо ожидаемого текста на русском выводится фигня -3- 4 непонятных символа с пробелами
Что надо сделать?

@ValentinNemo · 15.11.2019, 08:25

Нужно открыть "Старт" -> "Все программы" -> Стандартные -> "Командная строка".
В этой программе кликнуть правой кнопкой мыши по полосе заголовка и в меню в пункте "свойства" установить шрифт Lucida Console.
У меня русский шрифт работает с таким кодом.

Pascal
1
2
3
4
5
6
7
8
program LazTest;
uses
  Windows;
begin
 SetConsoleOutputCP(CP_UTF8);
 writeln('Привет на русском языке ');
 readln;
end.

или с таким кодом.

Pascal
1
2
3
4
5
program LazTest;
begin
 writeln(Utf8Decode('Привет на русском языке '));
 readln;
end.

@volvo · 15.11.2019, 16:54

Если система локализована (или хотя бы в настройках локаль для Non-Unicode приложений выставлена в Russian) - то все гораздо проще, не надо ничего менять в настройках шрифта, и никаких лишних зависимостей добавлять не надо:

Pascal
1
2
3
4
5
6
7
8
9
10
{$mode objfpc}{$H+}
{$codepage UTF8}
program project1;
 
var s : UnicodeString;
begin
  s := 'Привет на русском языке';
  writeln(s);
  ReadLn;
end.

Вот результат (Win8, но на Win10 все будет аналогично) :

@ValentinNemo · 16.11.2019, 00:56

Сообщение от volvo

var s : UnicodeString;

volvo, задавать именно такой тип строковой информации обязательно, или можно string по старинке использовать?

@volvo · 16.11.2019, 01:00

Обязательно

@bormant · 17.11.2019, 09:42

ValentinNemo,
Если задано {$codepage utf8}, то string компилируется как UnicodeString со всеми сопутствующими «сюрпризами».

https://wiki.freepascal.org/Un... in_Lazarus

Добавлено через 17 минут
volvo,
С некоторых пор это уже не так.

@ValentinNemo · 17.11.2019, 11:38

bormant, я проверил string и UnicodeString. Вводится и выводится кириллица хорошо в обоих случаях, а вот классические процедуры и функции для работы со строками работают по разному.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program project1;
{$mode objfpc}{$H+}
{$codepage UTF8}
var s: UnicodeString;
begin
  s := 'Привет на русском языке';
  writeln(s);
  writeln(copy(s,2,3));
  writeln('Напишите что-нибудь на кириллице:');
  readln(s);
  writeln('Вот что выводится: ' + s);
  writeln(copy(s,2,3));
  ReadLn;
end.

Протокол работы программы

Привет на русском языке
рив
Напишите что-нибудь на кириллице:
жвдлжыдлажыдаыжда
Вот что выводится: жвдлжыдлажыдаыжда
вдл

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program project1;
{$mode objfpc}{$H+}
{$codepage UTF8}
var s: String;
begin
  s := 'Привет на русском языке';
  writeln(s);
  writeln(copy(s,2,3));
  writeln('Напишите что-нибудь на кириллице:');
  readln(s);
  writeln('Вот что выводится: ' + s);
  writeln(copy(s,2,3));
  ReadLn;
end.

Протокол работы программы

Привет на русском языке
?р
Напишите что-нибудь на кириллице:
далыодалыоад
Вот что выводится: далыодалыоад
алы

@vlisp · 19.11.2019, 02:40

проверять надо так

Pascal
1
if s = 'Вася' then ...

@I_CaR · 13.09.2020, 01:20

Добавлено через 2 минуты

Сообщение от volvo

program project1;
var s : UnicodeString;

Ваш код не работает на Win7

Добавлено через 1 минуту
По моему мнению, лучший вариант будет этот:

Delphi
1
2
3
4
5
function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

@northener · 13.09.2020, 01:23

Сообщение от I_CaR

Ваш код не работает на Win7

Прекрасно работает.

@volvo · 13.09.2020, 01:27

I_CaR, да? Очень интересно. А вот это тогда что?

@volvo · 13.09.2020, 01:32

Сообщение от I_CaR

По моему мнению, лучший вариант будет этот:

Ну разумеется, в кроссплатформенном Лазарусе нужно же написать код на WinAPI, как я раньше не догадывался... Да еще выбрать ту функцию, которая была предназначена для совместимости с 16-битными Windows, ее даже под 32-бита уже использовать не рекомендуется. Закопали уже. Но некоторые опять откапывают, и другим еще советуют...

@northener · 13.09.2020, 02:30

Не по теме:

Сообщение от volvo

А вот это тогда что?

А откуда вы взяли Win7? Неужели поставили только ради этого ответа? Зачем?
Win7 для меня родной и я уже ответил ТС. Разве что скриншот не привел.
Ну так презумпция невиновности не позволила.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@volvo Супер-модератор 33416 / 21524 / 8238 Регистрация: 22.10.2011 Сообщений: 36,931 Записей в блоге: 12
	16.11.2019, 01:00
	Обязательно 0

@bormant Модератор 7818 / 4637 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	17.11.2019, 09:42
	ValentinNemo, Если задано {$codepage utf8}, то string компилируется как UnicodeString со всеми сопутствующими «сюрпризами». https://wiki.freepascal.org/Un... in_Lazarus Добавлено через 17 минут volvo, С некоторых пор это уже не так. 0

@volvo Супер-модератор 33416 / 21524 / 8238 Регистрация: 22.10.2011 Сообщений: 36,931 Записей в блоге: 12
	13.09.2020, 01:27
	I_CaR, да? Очень интересно. А вот это тогда что? Миниатюры 0