黄缘闭壳龟能长多大:记录常量的定义

来源:百度文库 编辑:九乡新闻网 时间:2024/07/04 19:19:36
超级猛料里的一段,你参考参考:
    记录、集合的初始化        
       
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)),

()

);