用变量表示对象名称(100)

W

w1229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-25

• #1

我有一组label控件,xm1,xm2,xm3……如何用变量来控制for i:=1 to 10 doxm:='xm'+inttostr(i)用xm表示.caption属性 xm.caption:=''

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-25

• #2

var cmp:tcomponent; i:integer;begin for i:=1 to 10 do begin cmp:=FindComponent('xm'+inttostr(i)); if assigned(cmp) and (cmp is tlabel) then tlabel(cmp).caption:='xm'+inttostr(i); end;end;

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-25

• #3

var Lab:TLabel;begin for i:=1 to 10 do begin Lab:= TLabel( self.FindComponent( 'xm'+inttostr(i) ) ); if Lab<>nil then ... end;end;

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-26

• #4

var lbs : array of Tlabel; I : Integer;begin setlength(lbs, 10); for I := 0 to 10 -1 do lbs := Tlabel(FindComponent('xm'+inttostr(i))); ..... 以后你就可以用lbs来访问了