Laaaaange Zahlen

[LDericher]

Ich bin dabei, eine Klasse zu schreiben, die mit sehr großen Ganzzahlen umgehen können soll. Also richtig lange Zahlen mit durchaus mehr als 1000 Stellen... auch BIGINT oder dergleichen hilft also nicht.

So weit, so gut: Nun bin ich dabei, die Subtraktionsroutine zu coden, scheitere aber in dem Fall, dass die Zahl negativ wird...
Hat jemand 'ne Idee?

Hier der Overhead:

Delphi-Quellcode:

  TLangzahl=class
  private
    vContent:TContent;
    IsNeg:boolean;
    procedure setContent(New:string);
    function getContent:string;
  public
    property Content:string read getContent write setContent;
    constructor Create;
    procedure Add(LZ:TLangzahl);
    procedure Increase;
    procedure Subtract(LZ:TLangzahl);
    procedure Decrease;
    procedure Multiply(LZ:TLangzahl);
    procedure Divide(LZ:TLangzahl);
    procedure Power(LZ:TLangzahl);
    procedure genRoot;
    destructor Destroy;
  end;

Hier die Beta-Subtraktionsmethode:

Delphi-Quellcode:

procedure TLangzahl.Subtract(LZ:TLangzahl);
var
  I,
  MaxLength:integer;
begin
if not(LZ.IsNeg)then
  begin
  MaxLength:=Max(High(vContent), High(LZ.vContent));
  SetLength(LZ.vContent, MaxLength+1);
  SetLength(vContent, MaxLength+1);
  for I:=0 to MaxLength do
     begin
     vContent[I]:=vContent[I]-LZ.vContent[I];
     if(vContent[I]<0)then
       begin
       vContent[I+1]:=vContent[I+1]-1;
       vContent[I]:=vContent[I] +10;
       end;
     end;
  end else Add(LZ);
end;

Liefert zum Beispiel (zugegeben: sinnvollerweise) "9" für "3-4"...

Danke im Voraus,
Euer LDer

Edit: TContent ist übrigens als array of Byte deklariert