数组指针参数

Const
arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'),
('A0B1', 'A1B1'));
arr2: array [0 .. 2, 0 .. 1] of string = (('X0Y0', 'X1Y0'),
('X2Y0', 'X0Y1'), ('A0', 'B0'));

type
TConstStringList = array [0 .. 0] of String;
PConstStringList = ^TConstStringList;

function Doit(aArray: PConstStringList; AllLen: Integer):string;
var
i: Integer;
s:ansiString;
begin
for i := 0 to AllLen - 1 do
s:=s+aArray[i]+' ';
Result:='"'+Trim(s)+'"';
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
ShowMessage(Doit(@arr1, 4));
end;