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.