Question

Delphi 10.1柏林。我有一个动态的记录数组。我想将TStream中的N条记录读入该数组。我认为我需要调用ReadBuffer，但第一个参数应该是什么样的？ @MyArray不起作用。

Answer 1

TStream.Read()和TStream.ReadBuffer()使用无类型var作为输入，这意味着您需要传入一个实际变量才能访问它们。

作为动态数组的变量本身只是指向第一个数组元素的指针，实际数组存储在内存中的其他位置。因此，您无法将动态数组变量本身传递给Read/Buffer()。正确的＆＃34;变量＆＃34;传递是第一个数组元素，因此使用MyArray[0]或Pointer(MyArray)^语法取消引用数组指针。

无论哪种方式，将流中的记录直接读入数组可能会也可能不会起作用，具体取决于实际声明记录类型的方式。

如果记录仅包含POD类型，并且其数据对齐方式与流数据的对齐方式匹配，则可以正常工作：

SetLength(MyArray, N);
if (N > 0) then
  Stream.ReadBuffer(MyArray[0], N * SizeOf(MyRecord));

或者：

SetLength(MyArray, N);
Stream.ReadBuffer(Pointer(MyArray)^, N * SizeOf(MyRecord));

否则，您必须从流中单独读取每条记录，根据需要对任何非POD类型进行反序列化，然后再将其复制到数组中：

var
  Rec: MyRecord;

SetLength(MyArray, N);
for I := 0 to N-1 do
begin
  // read individual members of Rec as needed...
  Stream.ReadBuffer(Rec.SomeMember, SizeOf(Rec.SomeMember));
  ...
  MyArray[I] := Rec;
end;

从TStream读取到动态数组

1 个答案: