вопрос

← →
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

http://bit.ly/11Y9zxL

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