超级菜的问题:减少代码书写..比如我要写很多 Form1.edit1.text:='111'

[prettysky]

减少代码书写..比如我要写很多

Form1.edit1.text:='111' ;
Form1.edit2.text:='111' ;
Form1.edit3.text:='111' ;
Form1.edit4.text:='111' ;
Form1.edit5.text:='111' ;
Form1.edit6.text:='111' ;
Form1.edit7.text:='111' ;
Form1.edit8.text:='111' ;

能不能用

edit1.text:='111' ;
edit2.text:='111' ;
edit3.text:='111' ;
edit4.text:='111' ;
edit5.text:='111' ;
edit6.text:='111' ;
edit7.text:='111' ;
edit8.text:='111' ;

来代替？

记得VB里面有一个函数能够实现

[漠北刀客]

如果From与Edit控件在一个单元内那么
edit1.text:='111' ;
edit2.text:='111' ;
edit3.text:='111' ;
edit4.text:='111' ;
edit5.text:='111' ;
edit6.text:='111' ;
edit7.text:='111' ;
edit8.text:='111' ;
若不在一个单元内，则可以
with Form1
edit1.text:='111' ;
edit2.text:='111' ;
edit3.text:='111' ;
edit4.text:='111' ;
edit5.text:='111' ;
edit6.text:='111' ;
edit7.text:='111' ;
edit8.text:='111' ;
end;

[lzybfs]

http://expert.csdn.net/Expert/topic/2233/2233772.xml?temp=.3362543

[Littleming]

给edit1->edit8设tag属性为2
var i:integer
for i:=1 to component-1 do
begin
if components[i] is Tedit then
if (components[i] as TEdit).tag=2 then
(components[i] as Tedit).Text:='lll';
end;

[Littleming]

‘var i:integer;’要写在紧跟 procedure 语句之后

[Dephiuser]

var
editln:array [1..10] of TEdit;
i:integer;
for i:=1 to 10 do
begin
editln[i]:=TEdit(findcomponent('edit'+inttostr(i));
editln[i].text:='lll';
end;

[dulei115]

with form1 do
for i:=1 to n do
with TEdit(FindComponent('Edit'+inttostr(i))) do
text:='111' ;

[IORILI]

如果edit1等在form1中，那么就不用在控件的前面加form1了 如果是在别的窗体中写的话
这样写;
with form1 do
begin

edit1.text:='111'
...
end;

with form1 do
for i:=1 to n do
with TEdit(FindComponent('Edit'+inttostr(i))) do
text:='111' ;
也可以

[Linux2001]

自己搜索一下以前的帖子，问过无数遍了

[georgehappy]

遍历FORM上的所有控件，只要是TEDIT就给它赋‘111’就行了三

[prettysky]

谢谢大家...马上结帖