初手问题：Delphi怎样把“多维动态数组”做 参数 和 返回值

Question

刚才一贴分数太少，人最多只得5分，对不起众路高手。
问题如题。我尝试过
function TMainForm.ccc(a: array of string) : array of string;          
返回值部分出错。function TMainForm.ccc(a: array of array of string) : string;          
参数部分出错。要做到题目要求的功能，我该怎么做？

Answer 1

改为procedure TMainForm.ccc(var a: array of string) ;
传引用
这样数组a可在过程内改变.

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  ta=array of array of string;
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetTaIn(a:ta);
    function GetTaIn:ta;
  end;
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SetTaIn(a:Ta);
var i,j:integer;
begin
  for i:=Low(a) to High(a) do
    for j:=Low(a[i]) to High(a[i]) do
      Memo1.Lines.Add(a[i][j]);
end;function TForm1.GetTaIn:Ta;
var a:Ta; i,j:integer;
begin
   SetLength(a,3,3);
   for i:=0 to 2 do
     for j:=0 to 2 do
       a[i][j]:=InttoStr((i+1)*(j+1));
   Result:=a;
end;procedure TForm1.Button1Click(Sender: TObject);
var a:Ta;i,j:integer;
begin
  a:=GetTaIn;
  SetTaIn(a);
end;end.