将记录复制到动态分配的内存时，Delphi 7 引用计数错误

Question

当我将带有托管字符串字段的记录类型变量分配给动态分配的缓冲区时，我在 Delphi 中遇到了奇怪的行为。它有什么问题以及如何纠正？

type
  PRec = ^TRec;
  TRec = packed record
    Foo: integer;
    Bar: string;
  end;

procedure Error;
var
  P, Q: PRec;
  R, T: TRec;
begin
  R.Foo := 1;
  R.Bar := 'Bar';
  T := R; // Ready
  Q := @T;
  Q^ := R; // Ready
  GetMem(P, SizeOf(TRec));
  P^ := R; // Access violation in _LStrAsg at 
           // "MOV     ECX,[EDX-skew].StrRec.refCnt"

  R := P^; // Just to keep reference while debugging
end;

Answer 1

您的记录是受管理的记录。因此，需要对其进行初始化。您的代码使用 GetMem ，它不会初始化记录。相反，您应该使用New。替换

GetMem(P, SizeOf(TRec));

与

New(P);

同样，当您需要取消分配时，您必须完成记录。使用 Dispose 而不是 FreeMem。

如果出于某种原因需要手动初始化和完成，则可以这样做。看起来像这样:

// allocate and initialize
GetMem(P, SizeOf(P^));
Initialize(P^);

// finalize and deallocate
Finalize(P^);
FreeMem(P);