AA tree - Skew und Split

[sk.Silvia]

cau, hat jemand von euch ein delphi source von Skew and Split?
konnte kein delphi source finden( und mein funkcionier nicht so gut...

Delphi-Quellcode:

   
    procedure TAA.Split;
    var tmp : TAA; begin
        tmp := TAA.CreateAATree(0);
        if ( not(Self = nil) and not(RightNode.isEmpty) and not(RightNode.RightNode.isEmpty)) then
            if(RightNode.RightNode.HeaderInfo.DepthLevel = HeaderInfo.DepthLevel) then begin
                tmp := RightNode;   //sem to nechce vojst
                RightNode := tmp.LeftNode;
                tmp.LeftNode := Self;
                Self := tmp;
                inc(Self.HeaderInfo.DepthLevel);
            end;
    end;

    procedure TAA.Skew;
    var tmp : TAA; begin
        tmp := TAA.CreateAATree(0);
        if ( not(Self = nil) and not(LeftNode = nil)) then
            if (LeftNode.HeaderInfo.DepthLevel = HeaderInfo.DepthLevel) then begin
                tmp := RightNode;
                LeftNode := tmp.RightNode;
                tmp.RightNode := Self;
                Self := tmp; //sem to nechce vojst
            end;
    end;

Dankeschon