[mak-karpov]

Плиз, хелп!

У меня есть некоторый текст - например "Приветствие".
Выводим в консоли - белиберда полная!

-------------
Подскажите, как перевести ANSI

[M.A.D.M.A.N.]

Если мне не изменяет память, то

Код:

1 2 3 4 5 6 7 8 9 10 11

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;

Юзоется так

Код:

1	writeln( Rus('Для завершения нажмите <Enter>'));

[mak-karpov]

Спасибо, помогло!

[mak-karpov]

Просьба закрыть тему