DartMrakkk - кодировка в консольнм приложении

[DartMrakkk]

Когда пишешь в Delphi 7, в консольном приложении русские буквы не отображаются(Точнее в самом коде они отобржаютя правильно, а вот после компиляции, во время выполнения самой прогаммы отображается абракадабра). Может кто знает как это исправить ?

[Баламут]

var
  s: string;
  st: array[0..255] of char;
begin
s := 'ПРЕВЕД, МЕДВЕД!!!';
CharToOEM(PChar(s),st);
s := StrPas(st);
write(s);
end.

[DartMrakkk]

Сообщение от Баламут

var
  s: string;
  st: array[0..255] of char;
begin
s := 'ПРЕВЕД, МЕДВЕД!!!';
CharToOEM(PChar(s),st);
s := StrPas(st);
write(s);
end.

Компилятор выдал
Discriminant.dpr(10): Undeclared identifier: 'CharToOEM'
Discriminant.dpr(11): Undeclared identifier: 'StrPas'

И вообще я думал что можно будет как нить в самом компе изменить (в реестре например...), а не в самом исходнике...

[JTG]

uses strings наверно

---

Мля, так бы сразу и стазал, что это про ТрупоПаскаль

ВКЛЮЧАТЕЛЬ РУССКИХ ШРИФТОВ В PASCAL
Если вы пользовались или пользуетесь Pascalем, то с вероятностью 50% сталкивались с проблемой ввода русских букв в самом тексте своей проги.
Студентам это очень важно - т.к. не всякий препод "воспринимает" транслит.
Наверно все, столкнувшиеся с этой проблемой, сразу тащили из универа "безглючную" версию Pascal, но это не помогало, т.к. трабла была в Windows.
Итак, имеется TurboPascal 7 и Windows XP. С другими версиями может работать, а может и нет

1. Давим пуск -> выполнить
Вводим: regedit , жмём ентер – откроется редактор реестра
Манипулятором типа «мышь» тыкаем в следующие закладки:
HKEY_LOCAL_MACHINE -> SYSTEM -> CurrentControlSet -> Control -> KeyboardLayout
Там изменяем значение ключа 00000409 в папке Doskeybcodes на «ru».
Это только Хиросима , Нагасаки ещё впереди ;-)

2. Заползаем в Windows\System32
Там открываем любым текстовиком (желательно-обязательно Ворд пэдом) файл
autoexec.nt. Добавляем туда в любое место стишок:
lh %SystemRoot%\system32\kb16.com ru

На все мольбы мастДаю тычим ДА.
ПЕРЕЗАГРУЖАЕМСЯ!!! (пока не поздно
Enjoy…осталось вспомнить, где валяется Pascal.


Криатед бай MiHan@(НМЭ,СГАУ) Ко.Ент.
All copylefts reserved. 2004. (Ц)
Edited in 2005.