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

procedureResetArchiv;

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

begin

St:=ParamStr(2);

If Pos('.',St)<>0 then Delete(St,Pos('.',St),4);

St:=St+'.vsg';

Assign(OutputF, St);

Reset(OutPutF,1);

Create:=False;

If IOResult=2 then

begin

Rewrite(OutputF, 1);

Create:=True;

end;

If NormalWork then

If Create then Writeln('Create archiv : ',St,'...')

else Writeln('Open archiv : ',St,'...')

end;

procedure SearchNameInArchiv;

{ --- вдальнейшем - поискименифайлавархиве --- }

begin

Seek(OutputF,FileSize(OutputF));

ErrorByte:=IOResult;

ErrorMessage;

end;

procedure DisposeCodeTable;

{ --- уничтожение кодовой таблицы и очереди --- }

Var I : byte;

begin