Русские Символы В Консольных Приложениях

[Sascha]

Время идет, время бежит. Все меняется, и консольные приложения сегодня уже своего рода дикость. Но все же бывают задачи, которые можно решать именно консольными программами. Есть определенные проблемы для русскоязычных пользователей при разработке такого рода программ. Проблема заключается в отображении кириллицы. Вместо русских символов приложение выводит иероглифы. Я расскажу, как решить эту проблему.

Возможно, задача имеет не одно решение, но я пользуюсь следующим:

1. В раздел uses добавляем модуль Windows.

2. В коде программы, между основными begin и end нужно вставить следующие строки

SetConsoleCP(1251);
SetConsoleOutputCP(1251);

3. После запуска приложения нажмите правой кнопкой мыши на заголовке окна (верхняя часть рамки). В появившемся меня выберите "свойства" и в разделе шрифты укажите "Lucida Concole".

Вот промер программы "Hello, World!" на русском языке.

program Project1;
{$APPTYPE CONSOLE}
uses
   SysUtils, windows;
begin
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);
   WriteLn('Привет мир');
   Readln;
end.