Delphi如何传递二维数组

unit Unit1;

 

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  T2DAry = array of array of string;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function MyFunction(arr: T2DAry): boolean;
var
  i, j: Integer;
begin
  for i:=low(arr)  to high(arr) do
    for j := low(arr[i]) to high(arr[i]) do
    begin
      ShowMessage('arr['+IntToStr(i)+']['+IntToStr(j)+']='+arr[i][j]);
    end;
end;

{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  arr_Para: T2DAry;
begin
  SetLength(arr_Para, 2, 2);
  arr_Para[0][0] := 's00';
  arr_Para[0][1] := 's01';
  arr_Para[1][0] := 's10';
  arr_Para[1][1] := 's11';
  MyFunction(arr_Para);
end;

end.