Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 25.06.2008, 17:59   #1
Аццкий Нуп
Новичок
Джуниор
 
Регистрация: 25.06.2008
Сообщений: 2
Подмигивание Ввод русских букв в Delphi

Вопрос вообщем-то такой: У меня Turbo Delphi 2006, вот хочу написать простое DOS-приложение, но русский она не выводит, пишет ерунду. Например readln('Привет') не печатает. По русски печатать можно и выводит напечатанное нормально. Дело компиляторе наверно, как бы заставить?
Аццкий Нуп вне форума Ответить с цитированием
Старый 25.06.2008, 18:26   #2
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Код:
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;
Пример испоьзования: Write(Rus('Привет'));
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 25.06.2008, 22:00   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

Карась, забавно... +1!
позвольте полубопытствовать - а стандартных AnsiToOem или CharToOem в TurboDelphi нет?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.06.2008, 22:27   #4
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Гы.. поправлюсь...
1. Этото код катит в Делфи 7.
2. Незнаю что и как в Турбо Делфи.
3. Этото код взят с каковото учебника и я его пользую иногда...
4. "Например readln('Привет') не печатает" А и недолжно
За вывод на экран отвечает Writeln.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчет русских и английских букв в текстовом файле. Ветас Помощь студентам 6 15.01.2009 22:08
Ввод только букв или цифр... Teleport Помощь студентам 8 12.06.2008 13:57
Регистр для русских букв Kulibim Общие вопросы Delphi 2 28.10.2007 17:36
как заблокировать ввод букв в StringGrid? LeoN Общие вопросы Delphi 1 05.10.2007 07:09
Подсчёт русских букв в строках файла гера Помощь студентам 1 25.04.2007 00:19


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS