Question

delphi怎样把多个数组赋值给一个动态数组

我生成的随机数组是一个arry[0..8]数组，我想把多个生成的随机数组赋值给一个动态数组，然后可以在EDIT框中顺序显示。
如：数组1是0,1,2,3,4,5,6,7,8
数组2是1,2,3,4,5,6,7,8,0
要动态数组是为0,1,2,3,4,5,6,7,8
1,2,3,4,5,6,7,8,0
即新加的数组都顺序排列在动态数组的后面
楼下的显示的结果是1列的啊~~我需要的是每9个数字一行，顺序显示啊

Answer 1

procedure TForm1.rzbtbtn1Click(Sender: TObject);
const
arr1:array[0..8] of string=('0','1','2','3','4','5','6','7','8');
arr2:array[0..8] of string=('1','2','3','4','5','6','7','8','0');
var
i1,i2,i3:integer;
s:TStringList;
arr3:array of string;
begin
s:=TStringList.Create;
for i1:=low(arr1) to high(arr1) do
begin
s.Add(arr1[i1]);
end;
for i2:=Low(arr2) to High(arr2) do
begin
s.Add(arr2[i2]);
end;
SetLength(arr3,s.Count);
for i3:=Low(arr3) to High(arr3) do
begin
arr3[i3]:=s.Strings[i3];
mmo1.Lines.Add(PChar(arr3[i3]));
end;

end;

Answer 2

int temp[5][12];
temp ={{0,1,2,3,4}, {5,6,7,8,9}};
Delphi中只有全局变量可以初始化：
var
temp: array[0..4, 0..11] of Integer =
((0,1,2,3,4),(5,6,7,8,9),(0,0,0,0,0),……)//
注意：在Delphi中对数组初始化时一定要把元素值写全，不能只写一部分。