如何选中指定的控件

Question

var
    Ed:array[0..1] of Tedit;
    i:integer;
    sum:integer;
begin
    sum:=0;
    Ed[0]:=edit1;
    Ed[1]:=edit2;
    For i:=0 to 1 do
      begin
        sum:=sum+strtoint(Ed[i].text);
      end;
     showmessage(inttostr(sum));
end;

Answer 1

for i:=0 to 4 do
  Value:=Value+StrToInt(TEdit(FindComponent('Edit' + IntToStr(i))).Text)

Answer 2

var
 i: integer;
begin
  for i := 0 to ComponentCount -1 do
  begin
    if Components[i] is TEdit then
       TEdit(Components[i]).text = '';  end;end;

Answer 3

楼上的说的对；
var
 i: integer;
 sum:inteer;
begin
  for i := 0 to ComponentCount -1 do
  begin
    if Components[i] is TEdit then
       sum:=inttostr(TEdit(Components[i]).text)+sum;
    
  end;end;