请问高手如何简化下面的程序(50分)

党

党sir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #1

请问高手如何简化下面的程序：

VAR
i:integer;
begin
...
case i of
1: label1.color:=clred;
2: label2.color:=clred;
3: label3.color:=clred;
4: label4.color:=clred;
5: label5.color:=clred;
6: label6.color:=clred;
7: label7.color:=clred;
...
end;
end;

 

H

honghs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #2

(FindComponent('label'+inttostr(i)) as tlabel).color:=clred;

 

D

doxpix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #3

用一下tag属性，预先设置每个label的tag属性分别是1,2,3,4,5,6,7...
for k := ComponentCount - 1 downto 0 do
begin
if (Components[k] is TLabel) and (components[k].tag=i) then
components[k].color:=clred;
end;
end;

好象没怎么简单呀？

 

C

catman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #4

如果这段程序是在所要改变颜色的TLabel的事件中调用的，
则为每个Label的tag属性赋值，如Label1,其Tag设为1，依次
类推，这样程序可简化为
(Sender as TControl).Color:=clred;

如果不是上面这样的，不过所有的Label在同一个容器内。这可以这样
for k:=0 to parnetContol.ControlCount-1 do
if (parentControl.Controls[k].ClassName='TLabel')
and(parentControl.Controls[k].Tag=i) then
parentControls[k].Color=clred;
注意，仍要给每个Label的tag赋值。

good luck

 

F

fineboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #5

先判断控件是Label吗？
是的话，就让它的Color:=clRed;

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-11

• #6

doxpix的程序可以不考虑tag，人家就是要给label变色

 

F

floatcloud

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-11

• #7

党sir,可以把你的拿个串口通信程序给我看看吗?谢谢了
floatcloud@8848.net

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-11

• #8

honghs 的办法比较好

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-11

• #9

定义数组arrLabel:array of TLabel

 

党

党sir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-11

• #10

接受答案了.