Курсовая работа: Delphi. Немного относительно методов упаковки данных

SetFAttr(InterF,AttrUnPakFile);

SetFTime(InterF,TimeUnPakFile);

end;

Close(InterF);

end;

procedure RestoryCodeTable;

{ --- воссозданиекодовойтаблицыпоархивномуфайлу --- }

Var I : byte;

begin

InitCodeTable;

For I:=0 to 255 do

begin

CodeTable[I]^.CounterEnter:=InBuf[InCounter];

CodeTable[I]^.CounterEnter:=CodeTable[I]^.CounterEnter SHL 8;

Inc(InCounter);

CodeTable[I]^.CounterEnter:=CodeTable[I]^.CounterEnter+InBuf[InCounter];

Inc(InCounter);

end;

end;

procedure UnPakByte( P : PCodElement );

{ --- распаковка одного байта --- }

VarMask : word;

begin

If (P^.P0=Nil) and (P^.P1=Nil) then

begin

OutBuf[OutCounter]:=P^.Index;

Inc(OutCounter);

Inc(LengthOutFile);

If OutCounter = (SizeOf(OutBuf)-1) then

К-во Просмотров: 1455
Бесплатно скачать Курсовая работа: Delphi. Немного относительно методов упаковки данных