Delpi-перекодировка

[Бурундук]

"Составить модуль перекодировки русских символов консольных приложений в среде Delphi".
Я не совсем понял,что от меня хотят...как ЭТО должно работать...

function Rus(mes: string):string;
var
i: integer; 
begin
 for i: =1 to length(mes) do case mes[i] of
 'A'..'п' :mes[i] := Chr(Ord(mes[i])-64);
 'р'..'я' :mes[i] := Chr(Ord(mes[i])-16); 
end;
rus := mes;
end;

в этом есть смысл?

[Greblin]

Да, скорее всего этого от Вас и хотели. Ну только проверьте, правильные ли константы 64 и 16, я на вскидку не помню

[Бурундук]

Сообщение от Greblin

Да, скорее всего этого от Вас и хотели. Ну только проверьте, правильные ли константы 64 и 16, я на вскидку не помню

А почему не работает ...?

[lennon]

это что, из за проблем с русскими символами? смари здесь http://forum.ixbt.com/topic.cgi?id=26:39262

[Беллая]

Могу ли я продолжить эту тему? У меня тоже есть проблема с выводом на экран русского текста. Я новичок. В качестве своей первой программы пишу сложную правда консольную программу. Математику на паскаль переводить надо. Поэтому в интернете искала готовую подпрограммку-руссификатор. Нашла точно такую, что указана в этой теме.
"Вопрос почему не работает?" - тоже мой вопрос. Я создаю консольную программу, мне этот простой вариант подошёл бы. Но программа выдаёт ошибку; Duplicate case label - значения в операторе CASE повторяются.
Вот сама функция

// Функция Rus преобразует ANSI'-строку в ASCII-строку 
function Rus(mes: string):string; 
// В ANSI русские буквы кодируются числами от 192 до 255, 
// в ASCII - от 128 до П5 (А..Яа..п) и от 224 до 239 (р. .я) . 
var
i: integer; // номер обрабатываемого символа 
begin
for i:=1 to length(mes) do
case mes[i] of
'A'..'п' : mes[i] := Chr(Ord(mes[i]) - 64); 
'p'..'я' : mes[i] := Chr(Ord(mes[i]) - 16); 
end; 
rus := mes; 
end;

Разбираться с case буду завтра. сегодня только спрашиваю можно ли продолжить тему и прошу исправить ошибку в слове Delpi

[Stilet]

Господа, все это обсуждалось неоднократно
Посему ставлю жирную точку над "и"

uses
  SysUtils;
var s:string;
 function RusTextToConsole(s:string):string;
  var i:longint;
  begin
  for i:=1 to length(s) do
  begin
   if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64);
   if ord(s[i]) in [240..255] then  s[i]:=chr(ord(s[i])-16);
  end;
  result:=s
  end;

begin
 s:='привет мир';

 write(RusTextToConsole(s));readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serge_Bliznykov]

если речь идёт о Delphi, то можно не заниматься перекодировкой символов из одной кодовой таблицы (ANSI) в другую (OEM, она же DOS, она же 866). Можно смело доверить этот сложный процесс самой Винде. Рекомендую:

program StrAnsiToOem;
{$APPTYPE CONSOLE}
uses SysUtils, Windows;

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

begin
  WriteLn(StrAnsiToOem('Теперь в консоли всё будет по русски!'));
  Readln
end.

[Беллая]

Получилось здорово!

Р.S. Теперь не стыдно руководителю работ показывать.

Спасибо за помощь ещё раз.

[Grag]

Сообщение от Беллая

У меня тоже есть проблема с выводом на экран русского текста. пишу сложную правда консольную программу.

Уже на этом форуме публиковал однажды предложение по этому вопросу. Вот еще раз повторюсь:

function PR(Const a : string) : string;
begin
  SetLength(result, length(a));
  CharToOem(PChar(a), Pchar(result));
end;

пример вызова функции

writeln(PR('Введите координату (x,y) вершины '),i);

[Беллая]

Возьму ваш вариант на заметку. Спасибо, Grad.

Со своей стороны обещаю в следующий раз внимательней по форуму содержание тем просматривать.

P.S. Как время по-больше будет - разберусь в сути того, что написано в предложенных вариантах, вроде это даже мне под силу; напопробую все. Пока просто запишу в мою программу самый простой, с моей точки зрения.