Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

begin

Seek(OutputF,FileSize(OutputF));

ErrorByte:=IOResult;

ErrorMessage;

end;

procedure DisposeCodeTable;

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

Var I : byte;

begin

For I:=0 to 255 do Dispose(CodeTable[I]);

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;

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





Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата