| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вопрос
taber © (2013-06-24 01:49:00)омогите написать код программы для вывода текста на русском языке для консольного режима для оператора 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?
Palladin (2013-06-24 11:44:00) [1]http://bit.ly/11Y9zxL
Германн (2013-06-24 03:11:00) [2]
> Какие есть тогда функции для вывода текста на русском языке
> в консольном режиме
CharToOEM
| |
