如何初始化声明为局部变量的记录?

你可以用 以下构造(其中Foo是一个记录)。

FillChar(Foo, SizeOf(Foo), 0); 

ZeroMemory(@Foo, SizeOf(Foo));

Allen Bauer

同时看看最常见的用途 是否大多数人使用FillChar 实际上用字符填充记忆 或者只是用它来初始化 发现是后一种情况 主导了它的使用而不是 前者。于是我们决定 以字节为中心的FillChar。

you should use Finalize before FillChar or ZeroMemory in some cases .

好吧,你可以用一个简单的法律手段

unit unit1;

interface

type
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    Value: Integer;
    function Self: PMyRecord;
  end;

implementation

function TMyRecord.Self: PMyRecord;
begin
  Result := @Self;
end;

procedure Test(AValue: Integer);
const MyRecord: TMyRecord = (Value: 0);
begin
  MyRecord.Self.Value := AValue;
end;