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.