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

Type

ByteField = array[0..6] of byte;

Const

Header : ByteField = ( $56, $53, $31, $00, $00, $00, $00 );

begin

If Create then

begin

Move(Header,OutBuf[0],7);

OutCounter:=7;

end

else

begin

Move(Header[3],OutBuf[0],4);

OutCounter:=4;

end;

end;

procedure SaveBufFATInfo;

{ --- запись в буфер всей информации по файлу --- }

Var I : byte;

St : PathStr;

R : SearchRec;

begin

St:=ParamStr(3);

For I:=0 to Length(St)+1 do

begin

OutBuf[OutCounter]:=byte(Ord(St[I]));

Inc(OutCounter);

end;

FindFirst(St,$00,R);