Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Дек

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

Posted by obzor under Delphi

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

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

хотя я бы предложил такой вариант (из 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);

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

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: