如何在Delphi中使用多维动态数组？

[Small_C]

如何在Delphi中使用多维动态数组？
用SetLength不能多维,
也只能 0..255 !

[yfyn]

顶

[mediawizard]

在Delphi 7/8 中SetLength已经可以处理动态多维数组了。至于Delphi以前的版本我就不清楚了，抱歉。

[aibeyond2003]

var
v:variant
begin
v:=vararraycreate([1,4],varinteger);
v[1]:=1;
.....
end;
2.v:=vararraycreate([1,4,1,5],varinteger);
vararraylock(),vararrayunlock()可以初始化大数组!
v:=vararraycreate([1,10000],varbyte);
p:=vararraylock(v);
try
..........
finally
vararrayunlock(v);
end;

[StreamOne]

这样写

var
A: array of array of integer;

begin
setlength(A,100,100);
....................
end;

[coollife]

type
A1=record
b:integer;
end;
A2=record
a:integer;
MySub: array of A1;
end; //这样你要多少维都可以,这里是二维
var
A:array of A2;
setlength(A,10);//分配
//赋值
for i:=0 to 9 do
begin
A[i].a:=i;
setlength(A[i].MySub,10)
for j:=0 to 9 do
A[i].Mysub[j].b:=j;
end;

//这样释放二维数组:(依次类推)
for i := 0 to 9 do SetLength(A[i], 0);
SetLength(A, 0);

[Arockroll]

多维的的动态数组在DELPHI6中可能有点问题,在7中不知道会不会,
可以SETLENGTH,但在使用的时候会出错,建议用指针 用NEW 和DISPOSE来分配和释放

[shifan]

同意StreamOne(梦醒)
毕竟array of array 是官方推荐的
Multidimensional dynamic arrays

以下来自Object Pascal Reference

To declare multidimensional dynamic arrays, use iterated array of ... constructions. For example,

type TMessageGrid = array of array of string;

var Msgs: TMessageGrid;

declares a two-dimensional array of strings. To instantiate this array, call SetLength with two integer arguments. For example, if I and J are integer-valued variables,

SetLength(Msgs,I,J);

allocates an I-by-J array, and Msgs[0,0] denotes an element of that array.

You can create multidimensional dynamic arrays that are not rectangular. The first step is to call SetLength, passing it parameters for the first n dimensions of the array. For example,

var Ints: array of array of Integer;

SetLength(Ints,10);

allocates ten rows for Ints but no columns. Later, you can allocate the columns one at a time (giving them different lengths); for example

SetLength(Ints[2], 5);

makes the third column of Ints five integers long. At this point (even if the other columns haven’t been allocated) you can assign values to the third column, for example, Ints[2,4] := 6.

The following example uses dynamic arrays (and the IntToStr function declared in the SysUtils unit) to create a triangular matrix of strings.

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;

[shifan]

在D7中用过array of array of ...一段时间，好像没什么问题

[Small_C]

谢了。

[chizengkun]

关注此问题，我很想了解的