BigInt div 2 mittels shr 1

[Fritzew]

Schalte mal die Bereichsprüfung aus also:

Delphi-Quellcode:

 for I := Count - 1 downto 0 do
  begin
  {$R-}
    Temp := (UInt64(Result[I]) shl UInt64(31)) or (Temp shl UInt64(32)); // *** hier
    Result[I] := Temp shr UInt64(32);
    S := IntToStr(Result[I]) + S;
  end;

Dein Problem ist aber denke ich etwas anderes......
Die Fehlermeldung bekommst Du so auf jeden Fall weg