我想动态连续创建10个LABEL，程序如何实现？我写了一个为什么出错啊？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  xl:array of Tlabel;     
begin
  i:=0;
  while i<100 do
  begin
    xl[i]:=Tlabel.create(self);             
    xl[i].Parent := self;
    xl[i].Left :=i+13;
    xl[i].Height :=i+4;
    xl[i].Caption :=inttostr(i);
    i:=i+1;
  end
end;

Answer 1

你需要xl:array［0..99］ of Tlabel就xl:array of Tlabel;的要用SetLength（XL，100）http://lysoft.7u7.net

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  xl:array[1..5] of Tlabel;
begin
  i:=1;
  while i<=5 do
  begin
    xl[i]:=Tlabel.create(self);
    xl[i].Parent := self;
    xl[i].Left :=10*i+10;
    xl[i].Height :=10*i+10;
    xl[i].top :=10*i+10;
    xl[i].Caption :=inttostr(i);
    i:=i+1;
  end
end;

Answer 3

哈哈，今天忙的做项目好忙啊，DELPHI已经两年没有碰过了！多谢谢大家帮忙啊！