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