如何清批量清空Label.caption值(50)

柳

柳枫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-08

• #1

如题,我新建了十个Label,如何动态批量清空label.caption值,即是今次是清空第1-9个,下次清空第2-7个......请高手出手,谢谢!

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-08

• #2

/////////////////////////////////////for i:=0 to self.ComponentCount-1 do
begin
if self.Components.ClassName='TEdit' then
begin
TEdit(self.components).text := '';
end;
///////////////////////////////////// if self.Components.ClassName='TCheckBox' then
begin
TCheckBox(self.components).Checked:=false;
end;
//////////////////////////////////// if self.Components.ClassName='TComboBox' then
begin
TComboBox(self.components).text := '';
end;
end;

 

A

ammi1130

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-03

• #3

可创建全局的TList用于保存TLabel的指针var aList:TList;//初始化aListaList:=TList.Create;aList.Add(Label1);aList.Add(Label2);...aList.Add(Label10);更改第i个Label的Caption代码TLabel(aList.items).caption:='';aList.Free;

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-03

• #4

vari,j:integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if self.Components is TLabel then
begin
(self.Components as TLabel ).caption:='';
end;
end;
end;

 

L

luoyanqing119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-05

• #5

这种问题回答很多，其实很简单，用宿主来查拥有类。yunxi126的方法我就不补充了。ammi1130把简单东西复杂化了。