sehr große Zahlen MOD

[Uwe Raabe]

Zitat von Texas:

was mache ich falsch

Ganz einfach: du verwendest eine zu alte Delphi-Version

Delphi-Quellcode:

function TForm1.LongMod(const Zahl: string; Divisor: Integer): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(Zahl) do begin
    Result := (10*Result + Ord(Zahl[I]) - Ord('0')) mod Divisor;
  end;
end;