几个tedit控件，我怎么循环得到各自的name? (50分)

D

delphikj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #1

窗体里多个tedit控件，各自的name为edit1,edit2,edit3....edit14
现在我想在每一个edit中，为其text赋值
想写为
for i:=1 to 14 do
begin
aa:=edit??.text;
end; //？？代表我想使aa对应相应的edit(i), 例如aa[1]对应edit1.text;
不知道大家用的什么办法，请指教。先谢谢你了。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #2

for i:=1 to 14 do aa := (FindComponent('Edit'+inttostr(i))as TEdit).text;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #3

这样好像更快一点点：）
for i := 1 to 14 do
aa := TEdit(FindComponent('Edit'+IntToStr(i))).Text;

 

D

delphikj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #4

谢谢两位，好快呀：）

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #5

有点儿不理解哦！
是为其text赋值，那应该是：edit??.text:=aa；才对的嘛！
如果是这样的话，那么就应该为：
var i:integer;
const aa:array[1..4] of string=('aa1','aa2','aa3','aa4');
begin
for i:=1 to 4 do
(FindComponent('Edit'+inttostr(i))as TEdit).text
:=aa;
end;