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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: спорт реферат, атанасян решебник
| Добавил(а) на сайт: Jentskij.

Var Mask,I : word;

begin

Inc(CounterBite);

If P^.P0Nil then ViewTree( P^.P0 );

If P^.P1Nil 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;

{ --- обнуление переменных и запуск просмотра дерева с вершины --- }

begin

BiteChain:=0;

CounterBite:=0;

Root^.Key:=False;

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

Claw.ru | Рефераты по информатике, программированию | Delphi. Немного относительно методов упаковки данных