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 ;)

[himitsu]

hab mir noch nicht alles durchgesehn, aber ...
Array of Byte

Byte = 0..255

"(vContent[I]<0)" wird also nie eintreten, da Byte nie kleiner 0 wird.
Tipp: nutze Array of ShortInt (-128..127)

[LDericher]

Zitat:

Zitat von himitsu

Tipp: nutze Array of ShortInt (-128..127)

sorry, mein Fehler... Zitat:

Delphi-Quellcode:

  TContent=array of Shortint;

;)

[himitsu]

Zitat:

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

ich glaub dann solltest du noch was bezüglich der negativen Werte machen, bzw. wie stellst du diese Werte überhaupt dar?

[Meflin]

Zitat:

Zitat von Superwinger

Also richtig lange Zahlen mit durchaus mehr als 1000 Stellen... auch BIGINT oder dergleichen hilft also nicht.

Nur mal so am Rande: von welcher BigInt-Implementierung redest du, die damit nicht umgehen könnte :gruebel:

[LDericher]

Zitat:

Zitat von Meflin

Zitat:

Zitat von Superwinger

Also richtig lange Zahlen mit durchaus mehr als 1000 Stellen... auch BIGINT oder dergleichen hilft also nicht.

Nur mal so am Rande: von welcher BigInt-Implementierung redest du, die damit nicht umgehen könnte :gruebel:

Von meiner: =>[Nicht vorhanden]

[mkinzler]

Such mal nach VLI
Er meint höchstwahrscheinlich den BigInt aus der DEC