Label的Caption(100分)

Q

QQ1858

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #1

如何将Label 的Caption进行批量更改，而不用一条一条写。因为Label太多了(100多)
Label1,Label2......Label100

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #2

写代码

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #3

For i:=0 to Self.ComponentCount -1 Do
begin
if (Self.Components is TEdit) then
TEdit(Self.Components).Caption := '标识'+IntToStr(i);
end;

 

W

wenjk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #4

同意 ：oldsheep35 的方法，很好的方法

 

W

wangzheking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #5

For i:=0 to Self.ComponentCount -1 Do
begin
if (Self.Components is TLabel) then
TLabel(Self.Components).Caption := '标识'+IntToStr(i);
end;
将Tedit改为TLabel

 

L

liwens

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #6

同意 ：oldsheep35；
For i:=0 to Self.ComponentCount -1 Do
begin
if (Self.Components is TLabel) then //TEDIT改成TABLE就OK了
TLabel(Self.Components).Caption := '标识'+IntToStr(i);
end;

 

Q

QQ1858

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #7

Thank You,I Love You

 

T

tempmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #8

既然爱我们，怎么还不结贴，给分，哇，有100分