帮助里就有: var A : array of array of string; I, J : Integer; begin SetLength(A, 10); for I := Low(A) to High(A) do begin SetLength(A[I], I); for J := Low(A[I]) to High(A[I]) do A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' '; end; end;
type Ta=array of integer; var a:ta;setlength(a,5);
var a:Array of String;//字符数组的长度和维数都没有确定 begin SetLength(a,100);//为数组分配100个元素空间 end;
var A : array of array of string;
I, J : Integer;
begin
SetLength(A, 10);
for I := Low(A) to High(A) do
begin
SetLength(A[I], I);
for J := Low(A[I]) to High(A[I]) do
A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
end;
end;
Ta=array of integer;
var
a:ta;setlength(a,5);
begin
SetLength(a,100);//为数组分配100个元素空间
end;