delphi怎样把多个数组赋值给一个动态数组
我生成的随机数组是一个arry[0..8]数组,我想把多个生成的随机数组赋值给一个动态数组,然后可以在EDIT框中顺序显示。如:数组1是0,1,2,3,4,5,6,7,8...
我生成的随机数组是一个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个数字一行,顺序显示啊 展开
如:数组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个数字一行,顺序显示啊 展开
2个回答
展开全部
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;
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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中对数组初始化时一定要把元素值写全,不能只写一部分。
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中对数组初始化时一定要把元素值写全,不能只写一部分。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询