一个关于pascal基本语法的问题

Question

First: Array [0 .. 2] of Test = (
{'1',{'A','B','c'},'2',{'A','B','c'},'3',{'A','B','c'}}
                                  )

Answer 1

一个例子：（摘自Delphi Help）
TPoint = record
    X, Y: Single;
  end;
TVector = array[0..1] of TPoint;constLine: TVector = ((X: -3.1; Y: 1.5), (X: 5.8; Y: 3.0));

Answer 2

你的问题:
  test = record
       a : string ;
       c : integer ;
  end ;  testa = record
        i : integer ;
        aa : test ;
  end ;
const myarr : array [0..1] of testa = ( (i:2 ; aa: (a:'aa';c:1)), 
(i: 3 ; aa: ( a:'aba';c:3)) );
语法检查通过

Answer 3

你的问题：  test = record
       a : string ;
       c : integer ;
  end ;  testa = record
        i : integer ;
        aa : test ;
  end ;
const myarr : array [0..1] of testa = ((i: 2 ; aa:(a:'aa';c:1)),
 (i: 3 ; aa:(a:'aba';c:3)));语法检查通过

Answer 4

你的问题：  test = record
       a : string ;
       c : integer ;
  end ;  testa = record
        i : integer ;
        aa : test ;
  end ;
const myarr : array [0..1] of testa = ((i: 2 ; aa:(a:'aa';c:1)),
 (i: 3 ; aa:(a:'aba';c:3)));语法检查通过