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

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);怎么用循环解决他?

Answer 1

把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;

Answer 2

我用showmessage(openma[1])看不到值