Русский текст в консоли

Posted by Chas under Delphi

Как писать в консоли русскими буквами? Кроме как слова в DOS кодировку перегонять?

eoln
Если имеется ввиду вывод, то так

s:='привет';

  SetLength(s0,Length(S));

  if Length(s0) > 0 then AnsiToOem(PChar(S),PChar(s0));

  Write(s0);

Serge_Bliznykov
хотя я бы предложил такой вариант (из JclStrings.pas):

function StrAnsiToOem(const S: AnsiString): AnsiString;

begin

  SetLength(Result, Length(S));

  AnsiToOemBuff(@S[1], @Result[1], Length(S));

end;

0nni
Можно в свойствах окна консоли поменять шрифт на Lucida, и установить нужную кодовую страницу.

SetConsoleOutCP(1251);

SetConsoleCP(1251);

W0LF
Вот модуль, подключаете в uses и можно спокойно использовать русский текст… Непомню где взял, но где-то взял)

EsConsole.rar (1.6 Кб)

тема на форуме

Похожие статьи

• Задержка консоли перед закрытием в C++
• Получить страницу из интернета и перекодировать её в cp1251
• Как проверить файл на юникодность
• Ansi в UTF-8 и наоборот UTF-8 в Ansi
• Delphi текст в консольном приложении на русском
• Дописать в файл (кодировка utf8) строку
• Работа с UTF-8 кодировкой
• Как в консоли вывести текст на экран, а через 3 секунды изменить?
• Перевести текст в кодировку utf8
• PHP: как передать параметры через консоль?