Деление двух длинных чисел, как реализовать с помощью объектов в Delphi? Опции

[serogan]

В FAQ'е (длинная арифметика) нашла функции для деления двух длинных чисел. Можете объяснить, как реализовать это в Delphi, желательно как объекты? Заранее спасибо.

[volvo]

Добавить строку в Fact:

{ A := n! }
procedure Fact(Var A: TObj; n: LongInt);
var T: TObj; i: LongInt;
begin
  T.Init;
  T.X^[1] := 1;
  T.X^[0] := 1;

  for i := 2 to n do begin
    A.MulLongShort(T, i);
    T.X^ := A.X^;
  end;
  A.X^ := T.X^; // <-- Вот эту !!! 

end;

(просто когда цикл не выполняется ни разу, переменная A остается, в смысле - оставалась, неизменной, а это плохо)