问一个文件的问题！请大家指教！

Question

字节                 内容
1-2                  16位CRC-CCIT，计算范围为整个字段中除去这两个字节外的部分
3-4             字段ID号
5-8                  字段长度，以字节为单位，包含  “字段ID头”
9             该字段的版本号
10             该协议的版本号
11-16                 对于字段0，为ASCII字符串：“SCPECG”；对于其他字段，为NULL（0）。一个文件怎么通过流和指针来读出它们？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
type
  TFileHead = packed record
    CRC: WORD;
    ID: WORD;
    Len: DWORD;
    VerC: Byte;
    VerP: Byte;
    Str: array [0..5] of Char;
  end;
var
  F: TFileStream;
  ABuf: TFileHead;
begin
  F := TFileStream.Create('c:\a.txt', fmOpenRead);
  try
    F.Read(ABuf, SizeOf(TFileHead));
    //
  finally
    F.Free;
  end;
end;