|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Переводим символы в консоли
Плиз, хелп!
У меня есть некоторый текст - например "Приветствие". Выводим в консоли - белиберда полная! ------------- Подскажите, как перевести ANSI |
#2
|
||||
|
||||
Если мне не изменяет память, то
Код:
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('Для завершения нажмите <Enter>')); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Спасибо, помогло!
|
#4
|
||||
|
||||
Просьба закрыть тему
Кнопка "+" - весы в правом верхнем углу сообщения... |