Русские буквы в TurboPascal

[DartMrakkk]

Извините если повторяюсь...
Как заставить TPas Понимать русские буквы, иначе абракадабра получается... Даже если в самой Delphi 7 создать консольное приложение- русские символы отображаются неправильно...

[JTG]

http://programmersforum.ru/showthrea...6887#post26887

[Tayfun]

1.Попробуй перейти в оконный режим
2.Если вообще на русский не переключаеться, то раскладку клавиатуры поменяй с английской на русскую.

[OCTAGRAM]

Раз уж закрыли эту тему, отпишусь здесь.

Есть хороший дистрибутив School Pak. В нём нет этой и большинства других проблем. Всё настроено и работает сразу после установки.

[begemotikdin]

Да, действительно, когда приложение создаётся в Windows. а выполняется программа в Dos, то при компиляется в прогорамме появляется "абракадабру" . Это потому что в Dos используетя кодировка ASCII, а в Windows-ANSI. Для этого испоьзуй функция преодразования из одной кодировки в другую....

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.

Пользуйся!!!