Char To Numeric

[xSkaschY]

Zitat von dominikkv:

vllt musst du (Ord(char[1])-64) mit (Ord(char[i])-64) ersetzen

ARGH! Danke, sehe schon den Wald vor lauter Bäumen nicht mehr. Sorry für den unsinnigen Thread.

EDIT:

Delphi-Quellcode:

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

Gibt auch selbst bei AA -> 2 aus, sollte aber 27 sein. Warum!?