请 wjlsmail(计算机质子) 、NightCloud()来拿分！！

Question

非常感谢二位的帮助，谢谢！

Answer 1

会，最好使用动态数组或 TList

Answer 2

to goomoo(古木) 
我的image是这样建的，image:array[0..40]of array[0..40]of timage,若是用动态数组时不是:
  image：array of array of timage;
begin
  image[x][y]:=timage.create(self);
  .......
如果用tlist应咋写？

Answer 3

谢谢。是否是:setlength(imagej,20,20)?

Answer 4

to wjlsmail(计算机质子) ( ) 
谢谢，当然要给了，希望以后还能继续帮我解答问题

Answer 5

却之不恭
二维动态数组的创建见例子
procedure TForm1.Button1Click(Sender: TObject);
var
  a:array of array of integer;
  i,j:integer;
begin
  setLength(a,3);
  for i:=low(a) to high(a) do
    setLength(a[i],i+1);
  for i:=low(a) to high(a) do
    for j:=low(a[i]) to high(a[i]) do
    begin
      a[i][j]:=i+j;
      showmessage(inttostr(a[i][j]));
    end;end;

Answer 6

这样也可以
---------------------procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of array of integer;
  i, j: integer;
begin
  setLength(a, 3, 3);
  for i := low(a) to high(a) do
    for j := low(a) to high(a) do
    begin
      a[i][j] := i + j;
      showmessage(inttostr(a[i][j]));
    end;
end;