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

var

m: integer;

begin

Result: ='';

while n<>0 do

begin

if n and 1=0 then Result: ='0'+Result else Result: ='1'+Result;

n: =n shr 1;

end;

if length (result) <8 then

begin

for m: =1 to 8-length (result) do result: ='0'+result;

end;

end;

procedure TForm1.Button5Click (Sender: TObject);

begin

if SaveDialog2.Execute then

begin

ProgressBar1.Position: =0;

prog: =0;

AssignFile (f3, SaveDialog2.FileName); // считываем имя файла и путь до него

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

conR: =''; // обнуляем рабочие переменные

conW: ='';

seek (f2,256); // переходим на 256-ой байт

form1.Refresh;

WhilenotEOF (f2) do // считываем файл до его окончания

begin

iflength (conR) <16 then // проверяем длину рабочей переменной