[SerginhoLD]

я поковырялся немного и вот что нашел:

SetConsoleCP и SetConsoleOutputCP работает, если поменять в свойствах консоли шрифт, например на lucuida console. (правой кнопкой мыши по верхушке окна -> свойства)

работает корректно после смены шрифта:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  WriteLn('русский текст');
  ReadLn;
end.

[Страдалецъ]

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

Я не чего против не имею конечно. Но СтрадальцЪ код модуля, который вы дали это и есть тот код, что описывал сначала

А я даже и не посмотрел. Увидел там в шапке другое название и решил, что там другой код

[Страдалецъ]

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

я поковырялся немного и вот что нашел:

SetConsoleCP и SetConsoleOutputCP работает, если поменять в свойствах консоли шрифт, например на lucuida console...

Надо-же, а я даже и не обратил внимание, на шрифт.