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

If NormalWork then ResetUnPakFiles;

If NormalWork then

begin

RestoryCodeTable;

SortQueueByte;

CreateTree; { создание дерева частот }

CreateCompressCode;

CounterBite:=0;

OutCounter:=0;

LengthOutFile:=0;

While LengthOutFile LengthArcFile do

UnPakByte(Root);

BlockWrite(InterF,OutBuf,OutCounter,NumWritten);

DeleteTree;

DisposeCodeTable;

end;

CloseUnPakFile;

end;

{ ------------------------- main text ------------------------- }

begin

DeleteFile:=False;

NormalWork:=True;

ErrorByte:=0;

WriteLn;

WriteLn('ArcHaf version 1.0 (c) Copyright VVS Soft Group, 1992.');

ResetArchiv;

If NormalWork then

begin

St:=ParamStr(1);