Помогите расшифровать фрагмент c chr и ord Опции

[Alexey]

Подскажите, пожалуйста, что делают данные строки:

Код

case c of
'а'..'п':stmp:=stmp+chr(ord(c)-32);
'р'..'я':stmp:=stmp+chr(ord(c)-80);
else stmp:=stmp+upcase(c);
end;

stmp - переменная типа line...
Не могу врубиться.

Сообщение отредактировано: Alexey - 10.10.2007 22:10

[Alexey]

Вот сама функция:

Код

function stupcase(s:line):line;
      var
         stmp:line;
         i:byte;
         c:char;
      begin
       stmp:='';
             for i:=1 to length(s) do
                 begin
                  c:=s[i];
                   case c of
                    ' '..'Ї':stmp:=stmp+chr(ord(c)-32);
                    'а'..'п':stmp:=stmp+chr(ord(c)-80);
                    else stmp:=stmp+upcase(c);
                 end;
      end;
      stupcase:=stmp;
end;

Так оно и есть (вроде), спасибо...
А то не думается об информатике в 12 часов ночи)))