Курсовая работа: Delphi. Немного относительно методов упаковки данных

Root^.NewLeft:=HelpPoint^.NewLeft;

HelpPoint^.NewLeft:=Root;

Root^.NewRight:=HelpPoint;

If Root^.NewLeft<>Nil then Root^.NewLeft^.NewRight:=Root;

end;

end;

end;

procedure ViewTree( P : PCodElement );

{ --- просмотр дерева частот и присваивание кодировочных цепей листьям --- }

Var Mask,I : word;

begin

Inc(CounterBite);

If P^.P0<>Nil then ViewTree( P^.P0 );

If P^.P1<>Nil then

begin

Mask:=(1 SHL (16-CounterBite));

BiteChain:=BiteChain OR Mask;

ViewTree( P^.P1 );

Mask:=(1 SHL (16-CounterBite));

BiteChain:=BiteChain XOR Mask;

end;

If (P^.P0=Nil) and (P^.P1=Nil) then

begin

P^.BiteChain:=BiteChain;

P^.LengthBiteChain:=CounterBite-1;

end;

Dec(CounterBite);

end;

procedure CreateCompressCode;