ошибка в функции

[Katus]

помогите, пожалуйста, разобраться с функцией руссификатор для консоли

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

[3D Hunter]

а в чем ошибка проявляется?

[Katus]

'?'..'y' : mes[j] := Chr(Ord(mes[j]) - 16);
ругается на эту строку компелятор...

[QunneD]

Смысл изобретать велосипед?

Чем CharToOEM или SetConsoleOutputCP не катит?

[Stilet]

ругается на эту строку компелятор...

А ошибку привести?
И почему бы не заменить устаревший кейс IF-ами?

[Пепел Феникса]

И почему бы не заменить устаревший кейс IF-ами?

чем это он устаревший?

[Stilet]

Сам Вирт помнится признавался что операция case не так мобильна как Иф в дном из его интервью. Ну согласись условия в IF могут быть любые, а Case только ординалы поддерживает.

[Пепел Феникса]

Ну согласись условия в IF могут быть любые, а Case только ординалы поддерживает.

пусть так, зато она их хорошо поддерживает, что удобнее чем if, особенно большие case.

[Stilet]

Не буду спорить, мое ИМХО

[chertovich]

[DCC Error] Unit1.pas(31): E2030 Duplicate case label

значения меток case повторяются.