Brauche ein Prüfziffer-berechner.. :-/

[Ultimator]

Delphi-Quellcode:

//angenommen, du hast die ersten 6 Prüfziffern schon in einem string (strziffern)
endziffer: integer;

begin
  endziffer := StrToInt(strziffern[1]) +
              (StrToInt(strziffern[2]) * 3) +
              StrToInt(strziffern[3]) +
              (StrToInt(strziffern[4]) * 7) +
              (StrToInt(strziffern[5]) * 3) +
               (StrToInt(strziffern[6]) * 9);
  endziffer := 10 - (endziffer mod 10);
end;

Is ungetestet, müsste aber funzen.