Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

ViewTree(Root);

end;

procedure DeleteTree;

{ --- удаление дерева --- }

Var P : PCodElement;

begin

CurPoint:=LeftRange;

While CurPointNil do

begin

If (CurPoint^.P0Nil) and (CurPoint^.P1Nil) then

begin

If CurPoint^.NewLeft Nil then

CurPoint^.NewLeft^.NewRight:=CurPoint^.NewRight;

If CurPoint^.NewRight Nil then

CurPoint^.NewRight^.NewLeft:=CurPoint^.NewLeft;

If CurPoint=LeftRange then LeftRange:=CurPoint^.NewRight;

If CurPoint=RightRange then RightRange:=CurPoint^.NewLeft;

P:=CurPoint;

CurPoint:=P^.NewRight;

Dispose(P);

end

else CurPoint:=CurPoint^.NewRight;

end;

end;

procedure SaveBufHeader;

Рекомендуем скачать другие рефераты по теме: продажа рефератов, ломоносов реферат.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки