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

Label6.Caption: =Inttostr (FileSize (f1)) + ' байт';

// выводим размер полученного файла

Label8.Caption: =IntToStr (Round (100- (FileSize (f1) *100/size))) + ' %';

// считаем процент сжатия файла

ShowMessage ('Файл успешно сжат');

CloseFile (f); // закрываем файлы

CloseFile (f1);

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

conW: ='';

Button3.Enabled: =false;

end;

procedure TForm1.Button4Click (Sender: TObject);

begin

if OpenDialog2.Execute then

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

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

size: =FileSize (f2); // запоминаем размер файла

Label4.Caption: =IntToStr (size) + ' байт';

Label2.Caption: ='';

Label6.Caption: ='';

Label8.Caption: ='';

Button5.Enabled: =true;

for i: =0 to 255 do

begin

BlockRead (f2,buff,1);

inf [i]: =buff; // задаем соответствие по служебной информации

word [i]: =ListBox1. Items.Strings [i]; // считываем массив кодовых слов

end;

end;