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

word: array [0.255] of string; // массив кодовых слов

l: array [0.255] ofbyte; // массив длин кодовых слов

e: array [0.255] ofreal; // массив номеров элементов

inf: array [0.255] of integer; // массив служебной информации

i,j,k,size,prog,buff1,buff3,check,dop: integer;

sl,sum,sort,sort1,buff2: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click (Sender: TObject);

begin

if OpenDialog1.Execute then

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

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

size: =FileSize (f); // измеряем размер файла

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

// выводим размер файла в Label4

Label2.Caption: ='';

Label6.Caption: ='';

Label8.Caption: ='';

end;

procedure TForm1.Button2Click (Sender: TObject);

begin

ProgressBar1.Position: =0; // обнуляем ProgressBar

prog: =0; // обнуляем счетчик для Progress Bar

sl: =0; // обнуляем переменную средней длинны

sum: =0; // обнуляем счетчик повторений символов

sort: =0; // обнуляем переменные для сортировки массива номеров элементов

sort1: =0;

buff: =0;