记录、集合的初始化

Type TTest = Record

ID: Integer

Item: word;

end;

记录初始化：

const

ATest:TTest=(Id:0;Item:0);

下面是一个复杂的记录的初始化：

TGUID = packed record

D1: LongWord;

D2: Word;

D3: Word;

D4: array[0..7] of Byte;

end;

POLIT_GUID: TGUID = (D1:10;D2:10;D3:10;D4:(1,2,3,4,5,6,7,8));

数组初始化：

TTestA = Record

ItemA: String;

ItemB: String;

ItemC: Integer;

end;

Type Test = Record

ID: Integer

Item: TTestA;

end;

Const

First: Array [0 .. 2] of TTestA = (

//该如何写这段初始化);

Secord:array [0..2] of Test=(///初始化代码如何写？);

回答：

集合的初始化必须明确指定每一个字段的名称和值，并且各个字段之间用;分隔。

First: array[0..1] of TTestA = (

(ItemA: '0 ItemA String'; ItemB: 'ItemB String'; ItemC: 10),

(ItemA: '1 ItemA String'; ItemB: '1 ItemB String'; ItemC: 20),

()

);

Secord: array[0..1] of Test = (

(ID: 10; Item: (ItemA: 'Test 0 ItemA'; ItemB: 'Test 0 ItemB'; ItemC: 10)),

(ID: 20; Item: (ItemA: 'Test 1 ItemA'; ItemB: 'Test 1 ItemB'; ItemC: 20)),

()

);