非常简单的问题。但是我不会！！救

Question

openma[1]:=StrToInt(open1.Text);
 openma[2]:=StrToInt(open2.Text);
 openma[3]:=StrToInt(open3.Text);
 openma[4]:=StrToInt(open4.Text);
 openma[5]:=StrToInt(open5.Text);
 openma[6]:=StrToInt(open6.Text);
 openma[7]:=StrToInt(open7.Text);怎么用循环解决他?然后我把open1。。7控件的Tag设为运应的1..7数for r:=0 to application.ComponentCount-1 do
    if application.Components[r] is Tedit then
      openma[Tedit(application.Components[r]).Tag]:=Tedit(application.Components[r]).text;我用showmessage(openma[1])看EDIT.TEXT的值.openma[1]的值为空。

Answer 1

for r:=1 to 7 do
    openma[i]:=:=Tedit(self.FindComponent('open'+inttostr(i))).text;

Answer 2

语法没错。但是我showmessage（openma[1]）这个值还是空的

Answer 3

openma[i]:=strtoint(Tedit(self.FindComponent('open'+inttostr(i))).text);