Hugeobj, что с ним сделать? Опции

[Айра]

Как я и обещала, очередной вопрос...
Мне нужно вычислить факториалы (до 100 хватит), как это сделать уже нашла (спасибо volvo (модуль для работы с длинной арифметикой)). Но я не знаю куда деть hugeobj.pas? без нее ведь не работает...

Объясните пожалуйста!

p.s. sorry, но таже проблема со скачанной библиотекой Crt...

p.s.2 в Delphi ведь можно все это реализовать...

Сообщение отредактировано: Айра - 26.01.2007 15:57

[Алена]

Добавить в объект TLargeInt еще один метод (в описание типа тоже, не забудь):

Function TLargeInt.HugeToStr: String;
Var
  i: Index; k: Digit; s: String;
begin
  result := '';

  Str(Base - 1, s); k := Length(s);
  result := result + IntToStr(GetLast);
  For i := GetLen - 1 DownTo 1 Do Begin
    Str(Get(i), s);
    While Length(s) < k Do s := '0' + s;
    result := result + DigitSep + s;
  End
end;

, естественно в Uses у модуля HugeObj прописывается SysUtils (чтобы IntToStr могла работать), и вызывать так:

procedure TForm1.Button4Click(Sender: TObject);
var f: TLargeInt; n: longint;
    begin
      n:=StrToInt(edit1.Text);
      fact(f, n);
      edit2.Text:=f.HugeToStr; // Это работает, проверено...
    end;