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

end;

procedure ClosePakFile;

{ --- закрытиеархивируемогофайла --- }

Var I : byte;

begin

If DeleteFile then Erase(InputF);

Close(InputF);

end;

procedure CloseArchiv;

{ --- закрытиеархивногофайла --- }

begin

If FileSize(OutputF)=0 then Erase(OutputF);

Close(OutputF);

end;

procedure InitCodeTable;

{ --- инициализация таблицы кодировки --- }

VarI : byte;

begin

For I:=0 to 255 do

begin

New(CurPoint);

CodeTable[I]:=CurPoint;

With CodeTable[I]^ do

begin

P0:=Nil;

P1:=Nil;

LengthBiteChain:=0;

BiteChain:=0;

CounterEnter:=1;