delphi - 写入时复制记录数组

Question

写时复制语义是否适用于动态记录数组？

如何正确复制记录数组？

这够了吗？：

type
  recordA = Record
    Y:integer;
  end;
var x: array of recordA;
    b: array of recordA;
    item: recordA;
begin
  SetLength(x, 2);
  item.Y:= 2;
  x[0] := item;
  item.Y:= 5;
  x[1] := item;
  //Copying
  b:= x;

复制完成后，我需要重置第一个数组：

SetLength(x, 0);

我可以这样做吗？

Answer 1

动态数组不支持写时复制 (CoW) 语义。在您的示例中无关紧要，但在其他情况下很重要。

如果需要复制动态数组的内容，请使用Copy函数。这是一个演示动态数组分配和复制之间区别的示例：

procedure TestCopy;
type
  recordA = Record
    Y:integer;
  end;
  arrayA = array of recordA;

var x, b, c: arrayA;
    item: recordA;

begin
  SetLength(x, 2);
  item.Y:= 2;
  x[0] := item;
  item.Y:= 5;
  x[1] := item;

  b:= x;
  x[0].Y:= 4;
  Writeln(b[0].Y, ' -- ', x[0].Y);

  b:= Copy(x);
  x[0].Y:= 8;
  Writeln(b[0].Y, ' -- ', x[0].Y);
end;