有变量ｎ，怎么样动态的建ｎ个ｌａｂｅｌ？(10分)

★

★蓝天★

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #1

有变量ｎ，怎么样动态的建ｎ个ｌａｂｅｌ？

 

O

oiwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #2

i:integer;
l:Tlabel;
begin
for i:=1 to n do
begin
l:=Tlabel.Create(self);
l.Top:=10*i;
l.Caption:='ddd';
l.Parent:=form1;
l.Update;
end;

 

H

humanc2d4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #3

这就是动态数组问题。
var
n:integer;
i:integer;
l:tlabel;
begin
n:=10;
for i:=1 to n do
begin
l:=tlabel.Create(nil);
l.Left:=10;
l.Top:=i*20;
l.Caption:=inttostr(i);
l.Parent:=form1;
end;
end;

 

W

ww20000309

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #4

var
i:integer;
mylabel:array of tlabel
begin
n:=10;
setlength(mylabel,n);
for i:=0 to n-1 do
begin
mylabel:=tlabel.Create(nil);
mylabel.Left:=10;
mylabel.Top:=i*20;
mylabel.Caption:=inttostr(i);
mylabel.name='mylabel'+inttostr(i);
mylabel.Parent:=form1;
end;
end;

 

W

wangydm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #5

ww20000309的應該好些.