按照你的意思,你应该是动态创建的TEDIT数组,你在创建的时候,每个控件的TAG赋值, for i:=0 to 数组大小 begin if edit[i].Name='edit10' then break; end; edit[i].text:='dadfdasfsf';
for i:=0 to componentcount-1 do begin if components[i].name=edit10 then begin edit10.setfocus; 你的代码 end; end;
我改一下 for i:=0 to componentcount-1 do begin if components[i].name='edit10' then begin if components[i] is Tedit then with components[i] as Tedit begin 你的代码 end; end; end;
tedit(findcomponent('edit10')).text=''
或 with FindComponent('edit10') as Tedit do begin 你的代码 end;
ok tedit(findcomponent('edit10')).text='' 别的我是没有测试,
你将这些控件的Tag值改为1,2,3,4...(不能为0哦) 然后 for i:=0 to componentcount-1 do begin case (components[i].tag) of 1: Tedit(components[i]).text:=''//你要做的事 2: .... end;
Tedit(Sender).text=10;
for i:=0 to 数组大小
begin
if edit[i].Name='edit10' then
break;
end;
edit[i].text:='dadfdasfsf';
begin
if components[i].name=edit10 then
begin
edit10.setfocus;
你的代码
end;
end;
for i:=0 to componentcount-1 do
begin
if components[i].name='edit10' then
begin
if components[i] is Tedit then
with components[i] as Tedit
begin
你的代码
end;
end;
end;
with FindComponent('edit10') as Tedit do
begin
你的代码
end;
如,lable1 edit1, lable2 edit2, 如何定位到edit2上,用循环,每个label.caption要改变,每个edit.text 的内容要改变,就得用循环作,可是如何定位到控件上呀,
如 edit[i].text 能成功就可以
tedit(findcomponent('edit10')).text=''
别的我是没有测试,
然后
for i:=0 to componentcount-1 do
begin
case (components[i].tag) of
1: Tedit(components[i]).text:=''//你要做的事
2:
....
end;