记录在记录（无法初始化）

Question

我有2条是这样的：

TYPE 
TRecord2= packed record 
    i2: Integer; 
end; 

TRecord1= packed record 
    i1: Integer; 
    R2: TRecord2; 
end; 

。

我想将记录字段初始化为零，但我不想使用FillMemory，因此我声明了2个常量记录，其中我初始化了这些字段。

CONST 
    Record2c: TRecord2= 
    (
    i2: 0; 
); 

    Record1c: TRecord1= 
    (
    i1: 0; 
    R2: Record2c;  <------- error line 
); 

但是，我不能指定一个Record2c到R2字段。编译器说：E2029“（”预期，但标识符“Record2c”里找到

但这个工作（如果我评论，我有错误的行）：

procedure test; 
var Record1: TRecord1; 
begin 
Record1:= Record1c;  // initialize variable by associating the constant to it 
end 

所以，我如何初始化R2场？

Answer 1

您只能使用常量来初始化常量。真常数没有类型 - 这些是键入的常量。请参阅Delphi文档中的Declared Constants。你的代码中的Record2c是一个类型常量，所以它不能用于初始化Record1c所需的常量表达式。你只需要在网上的Record1c.R2定义：

const 
    Record1c: TRecord1 = (
    i1: 0; 
    R2: (i2: 0;); 
); 

当你注释掉错误行，你要离开的R2场默认初始化为零。

Answer 2

这是因为Record2c是类型常数这是不是一个“真正”的常数。所以你不能用它来初始化另一个不变的。你必须申报Record1c像

Record1c: TRecord1 = 
    (
    i1: 0; 
    R2: (i2: 0); 
    ); 

Answer 3

在Delphi-2009及更高版本中，可以通过拨打Default来调零记录。

record1 := Default(TRecord1); // This will zero record1 including R2 

见David's answer的问题How to properly free records that contain various types in Delphi at once?。