Форум: "Начинающим";
Текущий архив: 2014.04.06;
Скачать: [xml.tar.bz2];

Вниз

вопрос   Найти похожие ветки 

← →
taber   (2013-06-24 01:49) [0]

омогите написать код программы для вывода текста на русском языке для консольного режима для оператора Write  Переписал такой код у
Культина "Основы программирования в Delphi7"
function Rus (mes : string ) : string ;
  var
    i : integer ;
  begin
    for i := 1   to length (mes)  do
         case  mes[i] of
         "А".."п": mes[i]:= Chr(Ord (mes[i]) - 64) ;
         "р".."я": mes[i]:= Chr(Ord (mes[i]) - 16) ;
         end;
         rus := mes ;
  end;
writeln(Rus("Введите числа. "));
но он почему то выводит только символы от "р до я", а символы от "А до п" не выводит. Вместо данных символов выводит символы ???.   Где здесь ошибка? Какие есть тогда функции для вывода текста на русском языке в консольном режиме для Delphi 2009?

---

← →
Германн ©   (2013-06-24 03:11) [1]

> Какие есть тогда функции для вывода текста на русском языке
> в консольном режиме

CharToOEM

---

← →
Palladin ©   (2013-06-24 11:44) [2]

http://bit.ly/11Y9zxL

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2014.04.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.001 c