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

write(outf,tmp);

inc(outpos);

seek(outf,outpos);

outcomb:=dec24tobin24(massivelementov1[i,j]);

for k:=1 to 3 do

outbuf[k]:=chr(bin24todec24(copy(outcomb,k*8-7,8)));

for k:=1 to 3 do

begin

write(outf,outbuf[k]);

inc(outpos);

seek(outf,outpos);

end;

end;

CloseFile(outf);

end;

end;

end;

procedure TMain.Button2Click(Sender: TObject);

var inf: file of char;

outf:textfile;

inbuf:array[1..3] of char;

temp:string;

k:integer;

inpos:integer;

tmp:char;

massive,chislo,granica:integer;

begin

fopen.Filter:='Архивированные файлы | *.arhi';

fsave.Filter:='Текстовые файлы | *.txt';