Hallo Tobias,
versuche es einmal mit folgendem Code:
Delphi-Quellcode:
function CharToNumeric(char: String): integer;
var numeric: integer;
i: integer;
begin
numeric := 0;
for i := 1 to Length(char) do begin
numeric := 26 * numeric + (Ord(char[i]) - 64);
end;
Result := numeric;
end;
Falls du den Code nicht nachvollziehen kannst, findest du vielleicht in der Wikipedia die nötigen Informationen zu
Stellenwertsystemen.
Noch einige Hinweise: vermeide nach Möglichkeit die Neudefinition vordefinierter Bezeichner (hier: char), das stiftet nur Verwirrung. Die lokale Variable
numeric benötigst du nicht, du kannst direkt mit dem Rückgabewert
Result arbeiten. Weiterhin solltest du berücksichtigen, daß man deiner Funktion etwas anderes als Großbuchstaben übergeben kann.
Gruß Hawkeye