Interner Fehler C1537 - result Fehler???

[Dezipaitor]

Genau, wenn du mit Objects arbeiten willst, dann musst du Pointer auf Object verwenden.
Also überall statt TBigInteger eben PBigInteger zurückgeben.

[mr.warft]

Ich bin in Zeigergeschichten nicht so fit. Wie meinst du das? Kannst du mir das mal an einer der Funktionen zeigen?

[mr.warft]

hallo,

ich habe mal versucht überall einen PBigInteger zurückgeben zulassen. Ich bekomme aber einen Speicherzugriffsfehler in der Zeile

Delphi-Quellcode:

xh := a.shrR(n)^;

und hier der gesamte Code der Funktion.

Delphi-Quellcode:

function pas(const a: TBigInteger; const  b : TBigInteger):PBigInteger;
var
   n,m: LongInt;

   xh,xl,yh,yl: TBigInteger;
   t3,t1,t2: TBigInteger;
   z1,z2,z3,z4,z5: TBigInteger;
begin
   inc(c);


   //if (c > 10) then halt;
   Debug('LenA:'+IntToStr(a.bitLength()) +'  # '+ a.bigIntegerToStr);
   Debug('LenB:'+IntToStr(b.bitLength()) +'  # '+ b.bigIntegerToStr);

   m := Max(a.bitLength(),b.bitLength());
   Debug('max: '+IntToStr(m));

   if (m <= 2) then
   begin
      result := a.multr(b);
      //WriteLn('lw:'+result.bigIntegerToStr);
   end else
   
   begin
   Debug('Durchgang: '+IntToStr(c));
   Debug('----------------');
   n := (m div 2);


   (****************** X ***********************)
   //BigInteger xH = x.shiftRight (n);
   xh := a.shrR(n)^;
   Debug('xh:'+xh.bigIntegerToStr());
        
        .
        .
        .

   result^ := z5;
   end;

Delphi-Quellcode:

function TBigInteger.shrR(n: Integer): PBigInteger;
var
   tmp: TBigInteger;
begin
   tmp := copy()^;
   tmp.shiftright(n);
   result := tmp.copy();
end;

Kann mir vielleicht jemand sagen, an welcher Stelle ich den Speichertzugriffsfehler haben könnte?

Danke :firejump: