for循环
在一 form内的panel上有3个动态创建的label，在form上还有3个label
如何用for to do 把form上的label的caption值对应的赋到panel上的三个label
问题点数：100、回复次数：12Top
1 楼breezing（网上的小鱼）回复于 2002-09-30 16:21:12 得分 0
for i := 0 to panel.ComponentCount - 1
panel.component[i] is tlable
...Top
2 楼lyyrw（咋暖还寒）回复于 2002-09-30 16:28:50 得分 0
我看只能这样了。Top
3 楼ihihonline（潇潇->戒烟）回复于 2002-09-30 16:34:36 得分 0
for I := 0 to ComponentCount - 1 do
begin
if Components[I] Is TLabel then
for J := Panel1.ControlCount - 1 do
begin
if Controls[J] Is TLabel then
..//给值
end;
end;Top
4 楼Drate（小虫(好好学习,天天向上)）回复于 2002-09-30 16:37:54 得分 0
var
i,j,n:integer;
begin
n:=0;
for j:=0 to mainform.ComponentCount-1 do
begin
if (mainform.Components[j] is TLabel) then
for i:=n to mainform.panel1.ComponentCount-1 do
begin
if mainform.panel1.components[j] is TLabel then
begin
TLabel(mainform.panel1.label).caption:=mainform.components[j].caption;
n:=j;
break;
end;
end;
end;
end;Top
5 楼Drate（小虫(好好学习,天天向上)）回复于 2002-09-30 16:41:07 得分 0
刚才上面的写错了，订正一下：
var
i,j,n:integer;
begin
n:=0;
for j:=0 to mainform.ComponentCount-1 do
begin
if (mainform.Components[j] is TLabel) then
for i:=n to mainform.panel1.ComponentCount-1 do
begin
if mainform.panel1.components[i] is TLabel then
begin
TLabel(mainform.panel1.components[i]).caption:=mainform.components[j].caption;
n:=j;
break;
end;
end;
end;
end;
Top
6 楼ihihonline（潇潇->戒烟）回复于 2002-09-30 16:42:08 得分 0
TO Drate(鸟窝里的虫)
现在还是错的，你信不信？Top
7 楼erp2（天涯劍）回复于 2002-09-30 16:48:16 得分 0
需要这么费劲吗?加一个frame窗体不就可以了吗?
一群饭桶.Top
8 楼Drate（小虫(好好学习,天天向上)）回复于 2002-09-30 17:04:23 得分 0
有可能还是错，我也没有仔细看，如果有错的话，哪位费点神改一改吧，我也没有试!不用给我面子，大改就行了!Top
9 楼ihihonline（潇潇->戒烟）回复于 2002-09-30 17:08:24 得分 0
Self -> Component
Panel -> Control
试一试我的；Top
10 楼vwd（黑土）回复于 2002-09-30 18:59:00 得分 0
to ihihonline
如何给值Top
11 楼ihihonline（潇潇->戒烟）回复于 2002-09-30 19:04:22 得分 100
如果给值？
I , J 都是确定的；
TLabel(Panel1.Ctrols[J]).Caption := TLabel(Components[I]).CaptionTop
12 楼vwd（黑土）回复于 2002-09-30 19:09:34 得分 0
TLabel(Panel1.Ctrols[J]).Caption := TLabel(Components[I]).Caption
应改为TLabel(Panel1.Ctrols[J]).Caption := TLabel(Components[J]).Caption 吧Top
