VLI - very long integer

[Delphianer]

Hallo,

ich habe vor längerer Zeit auf meiner Website die Unit VLI vorgestellt, die das Hantieren mit Ganzzahlen erlaubt, die größer als Int64 sind. Leider war die Unit nie ganz fertig, da die Division gefehlt hat.

Ich habe die Unit nun komplettiert, die Division nutzt eine Routine, die von Prof. Flanders in seinem Buch 'Scientific Pascal' vorgestellt hat. Weiterhin benutze ich zur Addition eine Routine, die ich von peanut aus seiner BigInt-Unit übernommen habe, ich hoffe, peanut hat nichts dagegen.

Mir ist klar, dass es schon eine Reihe von BigInt-Implementierungen gibt. Dank Prof. Flanders ist meine Division aber erheblich schneller als in den meisten Implementierungen.

Ich habe die Unit mit Delphi 2009/XE entwickelt, eigentlich sollte sie auch mit älteren Version laufen.

Ein Beisipiel zur Verwendung:

Delphi-Quellcode:

var
  A, B, Q, R: TVLI;
begin
  A := TVLI.Create('12345789123456789123457891234567891234578912345678912345789123456790');
  B := TVLI.Create('12345789123456789');
  Q := TVLI.Create;
  R := TVLI.Create;
  try
    Q.Divide(A, B, R);
    Memo1.Lines.Add('A = ' + A.AsString);
    Memo1.Lines.Add('B = ' + B.AsString);
    Memo1.Lines.Add('A / B = ' + Q.AsString + ' Rest ' + R.AsString);
  finally
    R.Free;
    Q.Free;
    B.Free;
    A.Free;
  end;
end;

Wer Lust und Zeit hat, kann die Unit gern testen. Ich bedanke mich jetzt schon für Rück- und Fehlermeldungen.

Lutz

PS:
Ich habe noch einen Fehler in der Division entdeckt und die Unit nochmal ausgetauscht.