procedure TForm1.Button1Click(Sender: TObject);
var
myarray1: array of array of string;
i, j: Integer;
begin
//最后在具体运用的过程或函数中设置维数
setlength(myarray1, 2, 3);
//myarray1[1,1]:='sdf';
for i := 0 to 1 do
begin
for j := 0 to 2 do
myarray1[i, j] := inttostr(i) + ',' + inttostr(j);
end;
for i := 0 to 1 do
begin
for j := 0 to 2 do
showmessage(myarray1[i, j]);
end;
end;
或者直接声明成类型
type
TmyArray=array of array of string;
再声明
var
myarray1:TmyArray;