Курсовая работа: Методы сжатия цифровой информации Метод Лавинского

bin:=inttostr(dec mod 2)+bin;

dec:=dec div 2;

end;

Dec24ToBin24:=bin;

end;

procedure TMain.Button3Click(Sender: TObject);

begin

Main.close;

end;

procedure TMain.Button1Click(Sender: TObject);

var

c:char;

g,i,j:integer;

fileperem:array [0..9999] of char;

fileperem1:array [0..9999] of string;

flag1:integer;// счетчик символов в файле

flag2:integer;// счетчик элементов массива fileperem1

flag3:integer;//флаг содержания буквы в фмйле

flag4:integer;// флаг выхода из блока чтения из файла

flag5:integer;// условие увеличения флага flag2

metca:integer;//для определения значения интервла

outBuf: array[1..3] of Char;

outf: file of char;

outpos:integer;

outcomb:string;

tmp:char;

k:integer;

begin

// Чтение из файла