Char To Numeric

[xSkaschY]

Guden zusammen,

Habe grad ein kleines Problem bei der umwandlung von Buchstaben zu Zahlen.

Undzwar möchte ich das zb. ein A in 1 oder ein AA in 27 umgewandelt wird.

Folgende funktion habe ich, die auch wunderbar mit einstelligen Buchstaben [A-Z] funktioniert, sich jedoch bei AA oder AB weigert einfach den entpsrechenden Index zu addieren.

Delphi-Quellcode:

function CharToNumeric(char: String): integer;
var numeric: integer;
    i: integer;
begin
  numeric := 0;
  for i := 1 to Length(char) do begin
    numeric := numeric + (Ord(char[1]) - 64);
  end;
  Result := numeric;
end;

Warum z.T. Addiert er nicht den Aktuellen Index??

LG Toby