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);

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

Delphi 7 refcount error when copying a record to dynamically allocated memory

delphi

automatic-ref-counting