我不能行以下的code，請指教

procedure TForm1.Button1Click(Sender: TObject);
var Arry:array[0..2,0..1] of String;
begin
  Arry[0,0]:='1';
  Arry[0,1]:='abc';      Arry[1,0]:='2';
  Arry[1,1]:='def';      Arry[2,0]:='1';
  Arry[2,1]:='ghi';      testAry(Arry);
end;    procedure TForm1.TestAry(ary:array of string);
begin
  Showmessage(ary[0][1]);
end;

SuperLowB 你好  

  你可以使用動態陣列
type
  Array2DString = Array Of Array Of string ;      TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure TestAry(ary:Array2DString);
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.TestAry(ary:Array2DString);
begin
  Showmessage(ary[0][1]);
end;    procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  Arry:Array2DString ;
  i: Integer ;
begin
  // 設定陣列的維度
  SetLength(Arry,3);
  For i := 0 To length(Arry)-1 Do Begin
    SetLength(Arry[i],2);
  End;
  
  Arry[0,0]:='1';
  Arry[0,1]:='abc';      Arry[1,0]:='2';
  Arry[1,1]:='def';      Arry[2,0]:='1';
  Arry[2,1]:='ghi';      testAry(Arry);
end;    end.    當然啦！方法不會只有一種，這只是其中的一種方式;。
 

_______________________________________ 深藍的魚，祝您好運..........連連

SuperLowB 您好：    一個透過type定義新型態，類似Chance36的方法也請您參考一下。 < class="code">type MyArray = array[0..2,0..1] of string; // user define type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure TestAry(ary :MyArray); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Arry ::MyArray; begin Arry[0,0]:='1'; Arry[0,1]:='abc'; Arry[1,0]:='2'; Arry[1,1]:='def'; Arry[2,0]:='1'; Arry[2,1]:='ghi'; testAry(Arry); end; procedure TForm1.TestAry(ary ::MyArray); begin Showmessage(ary[0][1]); end; RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####