Что обозначает строка if S[I] > '@'

[Safok]

Что обозначает строка if S[I] > '@'

Код программы:

function str(s:string):string;
var
I, P : Longint;
Result1 :integer;
begin
 I := Length(S);
  Result1 := 0;
  S := UpperCase(S);
  P := 1;
  while (I >= 1) do begin
    if S[I] > '@' then Result1 := Result1 + (Ord(S[I]) - 55) * P
    else Result1 := Result1 + (Ord(S[I]) - 48) * P;
    Dec(I);
    P := P * 16;
end;

[Stilet]

Ну по идее переводится на русский примерно так: Если символ в строке стоит после символа @ в кодовой таблице

[Serge_Bliznykov]

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

Ну по идее переводится на русский примерно так: Если символ в строке стоит после символа @ в кодовой таблице

всё так.

дополню ответ.
данный код позволяет перевести шестнадцатеричную цифру в её десятичное значение
т.е. для символов '0'..'9' мы отнимаем 48 (это код символа '0')
а для символов после '@', это символы 'A'..'F', мы отнимаем 55, таким образом, для символа 'A' (код символа = 65) получаем значение 10, для 'B' - получаем 11 и т.д.