如何读取写入TDataSet.Field(ftBytes)的打包记录

直接用Move操作把缓冲区的字节数据复制到你定义的TRecordStru变量里，这就是和写入逻辑完全对应的“正确”方法，不需要手动解析每个字段。

步骤说明 #

1. 确保你的TRecordStru定义和写入代码完全一致（必须是packed record，字段顺序、类型、长度不能有任何改动）：

TRecordStru = packed record
  RecData1 : integer ;
  RecData2 : array [0..9] of char ;
  RecData3 : array [0..9] of char ;
  RecData4 : integer ;
  RecData5 : array [0..9] of char ; 
  RecData6 : integer ;
end;

2. 读取字段数据到缓冲区后，直接将缓冲区的字节复制到记录变量：

var
  myRecord: TRecordStru;
  myBuffer: array of Byte;
begin
  GetMem(myBuffer, SizeOf(TRecordStru)); // 不需要260这么大，刚好匹配记录大小即可
  try
    FieldByName('myField').GetData(myBuffer);
    // 核心操作：把缓冲区字节复制到记录
    Move(myBuffer^, myRecord, SizeOf(TRecordStru));
    
    // 现在可以直接访问myRecord的各个字段了
    ShowMessage(IntToStr(myRecord.RecData1));
    // 处理字符串字段：因为StrPLCopy填充的是固定长度char数组，可能带空格或#0，需要截断
    ShowMessage(Trim(Copy(StrPas(@myRecord.RecData2), 1, Pos(#0, StrPas(@myRecord.RecData2))-1)));
  finally
    FreeMem(myBuffer);
  end;
end;

为什么这是正确的方法 #

写入逻辑是先把TRecordStru的字节通过Move复制到字符串，再存入字段。读取时反向操作，直接把字段的字节数据Move回TRecordStru，完全还原原始的内存结构，和当初写入的逻辑完全对应，避免手动解析可能出现的错误。

注意事项 #

• 整数的字节序：Delphi默认使用小端字节序，只要读取和写入用的是同一种Delphi环境（或兼容的编译器），就不会有问题。
• 字符串字段处理：StrPLCopy会把字符串填充到固定长度的char数组，剩余位置会用空格填充（如果原字符串长度不足），或者被截断（如果原字符串过长）。读取后可以用StrPas转成Pascal字符串，再截断到第一个#0或者用Trim去掉末尾空格，得到原始的字符串内容。

内容的提问来源于stack exchange，提问作者user2277327