Char To Numeric

[Hawkeye219]

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