Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения

// задаем новое расширение для сжатого файла

SaveDialog1.DefaultExt: ='gop';

if SaveDialog1.Execute then

begin

AssignFile (f1, SaveDialog1.FileName);

Rewrite (f1,1); // открываем файл для записи

end;

buff1: =0;

i: =0;

whilei<> 256 do // записываем служебную информацию в новый файл.

begin

buff1: =StrToInt (FloatToStr (e [i]));

BlockWrite (f1,buff1,1);

Reset (f,1);

i: =i+1;

end;

buff1: =0;

seek (f1,256); // осуществляем переход на 256-ой байт в файле

ProgressBar1.Position: =0;

prog: =0;

while not EOF (f) do // считываем файл до его окончания

begin

BlockRead (f,buff,1); // считываем блоки размером 1 байт

buff1: =buff1+1;

prog: =prog+1;

for i: =0 to 255 do

begin

if buff=e [i] then // проверяем совпадения

begin