setlength(labels,10,10);
    for   i  :=   1  to 9 do
    begin
    k:=10;
    for j:=1 to 1 do
    begin
        labels[i][j] :=   TLabel.Create(self);        labels[i][j].Font.Size:=20;
        labels[i][j].Left:=10;
        labels[i][j].Top:=k+80;
        labels[i][j].Caption:='fuck';
        labels[i][j].Parent:=form1 ;
    end;
    k:=k+10;
    end;这个Labels是用二维数组定义的。

解决方案 »

  1.   

     setlength(labels,10,10);
        k:=10;
        for   i  :=   1  to 9 do
        begin
        for j:=1 to 1 do
        begin        labels[i][j] :=   TLabel.Create(self);        labels[i][j].Font.Size:=20;
            labels[i][j].Left:=10;
            labels[i][j].Top:=K+100;
            labels[i][j].Caption:='fuck';
            labels[i][j].Parent:=form1 ;
            k:=k+50;
        end;    end;我知道问题所在了,每次都把位置的top设置成同一个值。覆盖了。
    改正之后:
      

  2.   

    另外,创建的label没有指定名字ide里,名字会自动递增。运行时,好像会报错?