这样的数组常量该如何写啊

Question

type TGBDl=record
        len:byte;
        info:string;
end;const
Gbdl array [1..3] of Tdbdl=(?????)
应该如何写呢

Answer 1

type Tgbdl= record
   len:byte;
   info:string;
end;
aaa = ^Tgbdl
gbl array [1..3] of aaa;

Answer 2

Gbdl array [1..3] of Tdbdl=((1, '111'),
                            (2, '222'),
                            (3, '333'),);

Answer 3

去掉最后一行的逗号
Gbdl array [1..3] of Tdbdl=((1, '111'),
                            (2, '222'),
                            (3, '333'));

Answer 4

Gbdl array [1..3] of Tdbdl=((),(),())
这样倒是可以的，就是不能赋值，up

Answer 5

delphi也应该可以有结构体作数组的常量

Answer 6

对不起，修改一下Gbdl: array[1..3] of Tgbdl=((len:1; info:'111'),
                            (len:2; info:'222'),
                            (len:3; info:'333'));

Answer 7

type TGBDl=record
        len:byte;
        info:string;
end;
 const
{$j+}
Gbdl :array [1..3] of  TGBDl=((len:1; info:'111'),
                            (len:2; info:'222'),
                            (len:3; info:'333'));
{$j-}