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

[serogan]

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

[Айра]

Спасибо!!!

А можно, я за нее?

Конечно

Я правильно дабовила?

type
  Tlong=array[0 .. _maxdig]of integer;
  Plong=^Tlong;

  TObj = object
    Constructor Init;
    Destructor Done;

    Function HugeToStr: String;  // вот тут?
    
    procedure ReadLong(var f:text);
    procedure WriteLong(var f:text);
    
    ...

  private
    X: PLong;
  end;

 procedure Fact(Var A: TObj; n: LongInt);  // и вот тут?

Все компилируется, но при работе выдает ошибку "Нарушение прав доступа в адресе 00402fc8 в модуле 'uchebnik.exe'. Напишите из адреса 00000000'." и выделяет эту строку (модуль HugeObj я удалила из проекта):

procedure TForm12.Button2Click(Sender: TObject);
var n: longint;
    per: TObj;
begin
  if edit4.text='' then
    begin
      MessageBeep(MB_ICONHAND);
      ShowMessage('Не заданы значения!');
    end
  else
    begin
      memo1.Text:='';
      n:=StrToInt(edit4.Text);
      if n>524 then ShowMessage('Невозможно вычислить для данного числа! Приносим свои извинения.')
      else
        begin
          Fact(per, n);
          memo1.Text:=per.HugeToStr;  //эту
        end;
    end;
end;

Я опять сделала что-то неправильно?

Сообщение отредактировано: Айра - 4.02.2007 16:22