[lmikle]

Т.к. мы работаем обычно с 2мя алфавитами, а именно англ. и русским, то можно так:

Код:

function LetterNumber(Ch : Char) : Integer;

  function GetLN(C, F : Char) : Integer;
  begin
     Result := Ord(C) - Orc(F) + 1;
  end;

begin
  Case Ch Of
    'A'..'Z' : Result := getLn(Ch,'A');
    'a'..'z' : Result := getLn(Ch,'a');
    'А'..'Я' : Result :=getLn(Ch,'А');
    'а'..'я' : Result := getLn(Ch,'а');
    Else Result := 0; // Ошибка, не буква
  end;
end;