Ausbalancierte Bäume Sortieren mit AVL-Bäumen

Move(BegTree^.Data^, LData, DatSize);
Lowest:=BegTree;
end;
{* ════════════════════════════════════════════*}
function Highest(Var HData;
BegTree : AvlTree) : AvlTree;
begin
if BegTree=nil then
begin
Highest:=nil;
Exit;
end;
while BegTree^.Rightnil do
BegTree:=BegTree^.Right;
Move(BegTree^.Data^, HData, DatSize);
Highest:=BegTree;
end;
{* ════════════════════════════════════════════*}
Function NextNode(Var NData;
BegTree: AvlTree): AvlTree;
var UpperT : AvlTree;
begin
if BegTree=nil then
begin
NextNode:=nil;
Exit;
end;
if BegTree^.Rightnil then
NextNode:=Lowest(NData,BegTree^.Right)
else
begin
UpperT:=BegTree;
repeat
BegTree:=UpperT;
UpperT:=UpperT^.Last;
until (UpperT=nil) or (UpperT^.Left=BegTree);
if UpperTnil then
Move(UpperT^.Data^, NData, DatSize)
else
FillChar(NData,DatSize,0);
NextNode:=UpperT;
end;
end;
{* ════════════════════════════════════════════*}
function LastNode(Var LData;
BegTree: AvlTree): AvlTree;
var UpperT : AvlTree;
begin
if BegTree=nil then
begin
LastNode:=nil;
Exit;
end;
if BegTree^.Leftnil then
LastNode:=Highest(LData,BegTree^.Left)
else
begin
UpperT:=BegTree;