第一维和第二维分别的长度:

 

 
  
  1. var 
  2.     A:   array[0..12,   -4..10]   of   Char; 
  3. begin 
  4.     Caption   :=   Format( '%d,%d ',   [Length(A),   Length(A[Low(A)])]); 
  5. end;