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

[KoBRaAndrey]

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

[BOBAH13]

http://www.google.com.ua/search?q=de...+русский+текст

[ArtInt]

Если для турбо паскаля(TP) или борланд паскаля (BP), то:
Ищи в google path_keyrus.exe(77 килобайт) и keyrus.com (23 килобайта).

[eoln]

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

  s:='привет';
  SetLength(s0,Length(S));
  if Length(s0) > 0 then AnsiToOem(PChar(S),PChar(s0));
  Write(s0);

[Alex_FF]

вот функция для вывода на консоль русского текста для Borland Delphi 7.

function _Fix_(S: String): String;
function _Char_(C: Char): Char;
begin
  case C of
    'а'..'п' : Dec(C, 64);
    'р'..'я' : Dec(C, 16);
    'ё'      : Inc(C, 57);
    'А'..'Я' : Dec(C, 64);
    'Ё'      : Inc(C, 72);
  end;
  _Char_:=c;
end;
var
  I: Integer;
begin
  for I := 1 To Length(S) do 
    S[I] := _Char_(S[I]);
  _Fix_ := S;
end;

если у вас строка S := 'русский текст', то для вывода пишите Write(_Fix_(S));

[Serge_Bliznykov]

Alex_FF, зачем!?!?
Если постом выше eoln приведено нормальное, "цивилизованное" решение проблемы!

хотя я бы предложил такой вариант (из 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 и можно спокойно использовать русский текст... Непомню где взял, но где-то взял)

[XerSon]

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

Непомню где взял, но где-то взял)

Модуль “русификации“ консольных приложений
(c) Eugene Kasnerik, 1999
e-mail: eugene1975@mail.ru

Не FaTaL ли дал?

[Прогр]

А модуль весь подключать в uses?