Delphi读取.dat文件，判断头部信息并显示内容到Memo控件

你可以使用`TFileStream`来读取.dat文件，使用`TMemo`来显示读取的内容。下面是一个示例代码：

var
  FileStream: TFileStream;
  Header: array[0..2] of AnsiChar;
  Value: Byte;
  Content: string;
begin
  FileStream := TFileStream.Create('yourfile.dat', fmOpenRead);
  try
    // 读取前三个字节
    FileStream.ReadBuffer(Header, SizeOf(Header));

    // 判断前三个字节是否为NFX
    if (Header[0] = 'N') and (Header[1] = 'F') and (Header[2] = 'X') then
    begin
      // 读取第四个字节
      FileStream.ReadBuffer(Value, SizeOf(Value));

      // 将内容读取到字符串变量中
      SetLength(Content, FileStream.Size - FileStream.Position);
      FileStream.ReadBuffer(Content[1], Length(Content));

      // 显示内容到Memo控件
      Memo1.Lines.Text := Format('Header: %s, Value: %d, Content: %s', [Header, Value, Content]);
    end
    else
      ShowMessage('Invalid file format');
  finally
    FileStream.Free;
  end;
end;

请注意，上述代码假设你已经在窗体上放置了一个`TMemo`控件，并将其命名为`Memo1`。你需要将`'yourfile.dat'`替换为你实际的.dat文件路径。