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

If (InCounter=(SizeOf(InBuf))) or (InCounter=NumRead) then

begin

InCounter:=0;

BlockRead(InputF,InBuf,SizeOf(InBuf),NumRead);

end;

end;

procedure PakFile;

{ --- процедуранепосредственногосжатияфайла --- }

begin

ResetFile;

SearchNameInArchiv;

If NormalWork then

begin

BlockRead(InputF,InBuf,SizeOf(InBuf),NumRead);

OutWord:=0;

CounterBite:=0;

OutCounter:=0;

InCounter:=0;

CRC:=0;

CreateCodeArchiv;

While (NumRead<>0) do PakOneByte;

OutBuf[OutCounter]:=Hi(OutWord);

Inc(OutCounter);

OutBuf[OutCounter]:=CRC;

Inc(OutCounter);

BlockWrite(OutputF,OutBuf,OutCounter,NumWritten);

DisposeCodeTable;

ClosePakFile;

end;