const array 如何初始化 ( 积分: 200 )

interface

type
TExcpCount = 0..1;

type
TScoketException = packed record
ErrCode: Integer;
ErrText: string;
end;

TScoketExceptionLists = array [TExcpCount] of TScoketException;

const
ScoketExceptionLists: TScoketExceptionLists = ( ( (1), ('10') ), ( (2), ('20') ) )
//这里不行

interface

type
TExcpCount = 0..1;

type
TScoketException = packed record
ErrCode: Integer;
ErrText: string;
end;

TScoketExceptionLists = array [TExcpCount] of TScoketException;

const
ScoketExceptionLists: TScoketExceptionLists = ( ( (1), ('10') ), ( (2), ('20') ) )
//这里不行

const
ScoketExceptionLists: TScoketExceptionLists = ( (Errcode:1;ErrText:'10'),(Errcode:2;ErrText:'20') );

接受答案了.