如何将一组tedit.text控件的循环赋值给一个数组

Question

我的输入是这样的，10个tedit控件，输入值后，按确定，将10个数值赋给数组a[i],请问高手如何通过循环来完成这一过程？谢谢

Answer 1

你把Edit分别命名Edit1,Edit2,Edit3...
For i:= 1 To 10
  A[i] := TEdit(FindComponent('Edit' + IntToStr(i))).Text

Answer 2

for i:=0 to form1.ComponentCount-1  do
  if form1.Components[i] is Tedit then
    A[i]:=tedit(form1.Components[i]).Text;

Answer 3

ay:array[1..10] of TEDIT

Answer 4

for i:=0 to form1.ComponentCount-1  do
  if form1.Components[i] is Tedit then
    A[i]:=tedit(form1.Components[i]).Text;

Answer 5

yun~~~~~
 budded(System is bussy.) 为什么抄我的，连do前面是两个空格都一样。:)