fehler beim umstrukturieren von datenstrukturen

[wonnebeekiwi]

Hier einmal den konkreten Code. Im Anhang ist der gesammte Code. Das Programm läuft noch nicht wie es soll.

Delphi-Quellcode:

procedure TAVLBaum.RRDrehung;
var Zeiger: TAVLBaum;
begin
  Zeiger := rechts;
  rechts := Zeiger.links;
  Zeiger.links := Self;
  Self := Zeiger;
end;

procedure TAVLBaum.RLDrehung;
var Zeiger1, Zeiger2: TAVLBaum;
begin
  Zeiger1 := rechts;
  Zeiger2 := Zeiger1.links;
  Zeiger1.links := Zeiger2.rechts;
  Zeiger2.rechts := Zeiger1;
  rechts := Zeiger2;
  RRDrehung;
end;

Ich dachte der würde das ganze Element kopieren. Funktioniert halt nicht.