我需要在一个循环中调用 form.edit1,form.edit2,form.edit3....怎样很简单的实现？

[Luckyfeeling]

for i:=1 to 10 do
begin
'form.edit' + inttostr(i)
end;
我怎样才能很简单的使用
form.edit1,form.edit2,form.edit3.....

[安优小青和他的程序生活]

delphi 是编译型的，不能实现这样的功能。

[enlightenment]

先设置每个Edit的Tag属性为自己指定的数字，

with Form do
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TEdit then
case (Components[i] as TEdit ).Tag of
{Your stuff code}
1: ;//
2: ;//
else
//
end;
end;

[路人丁]

这么做方法行不通，这不是vb！我想你大概要做一个TEdit类指针数组分别指向各个Edit,(当然这种方法我没试验过);我所用的方法是我的控件都是动态建立的,然后存储各个控件的名字！
例如建立一个TImage控件：
TImage *Stanew[100];
for(int w=0;w<100;w++)
Stanew[w]=new TImage(Fb->ScrollBox1);
也许对你有点帮助！

[路人丁]

sorry!写成bcb了！

[kylix2001]

enlightenment(阿明--平均睡眠时间<6h/d的超人)的方法没错！

[cobi]

试一下这样：

for i:= 1 to 10 do
begin
Tedit(findcomponent('edit' + inttostr(i))).text := inttostr(i);
end;

[lastlove]

var CtrlName:string;
Ctrl:TEdit;

for i:=1 to 10 do
begin
CtrlName:='form.edit'+inttostr(i);
Ctrl:=Tlabel(Findcomponent(CtrlName));
Ctrl.text:=....

end;

[tangt]

反对for +Case 的嵌套，这样的代码效率和可读性并不强。但tag的使用是一个很好的方向。
大致上while not findcomponent do
begin
find your edit component having your tag with function findcomponent(),
do smoething.
end

[hellen2000]

略作改进:
with Form do
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TEdit then
IF Components[i].NAME='EDIT1' THEN
{DO SOMETHING}
ELSE IF Components[i].NAME='EDIT2' THEN
....
end;

[enlightenment]

To tangt(豪鬼)：要是对每个Edit的处理都不一样呢？如果是一样的自然也无须Case啦！除了for什么都不用了。

To hellen2000(老实和尚)：改~~进~~~？？？

：）

[colacoca]

gz

[dearmyfriend]

for i:=0 to form1.Controlcount-1 do
begin
if (form1.Controls[i] is TEdit) then
(form1.Controls[i] as TEdit).Text:='...';
end;