控件数组问题:如何把N个EDIT.TEXT赋值给数组!!!--在线等待!!

Question

var
  I: Integer;
  A: array[1..N]of string;
begin
  for I := 1 to N do
    if Assigned(FindComponent('Edit' + IntToStr(I))) then
      A[I] := TEdit(FindComponent('Edit' + IntToStr(I))).Text;
end;

Answer 1

可以试试
var
  ii: Integer;
  ss: string;
begin
  for ii := 0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[ii] is TEdit then
    begin
      ss := TEdit(Form1.Components[ii]).Text;
      youarray = ss;
    end;
    

Answer 2

var  A: array of string;
begin
    SetLength(a,high(a) +1);
    a[high(a)]:=yourEdit.Text;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
 var
   textstr:array of string;
   editarry:array[0..1000] of Tedit;
   i,j,counter:integer;
 begin
   counter:=0;
   for i:=0 to self.ControlCount-1 do
      if (self.Controls[i] as Twincontrol).ClassName='TEdit' then
         begin
           inc(counter);
           editarry[counter-1]:=self.Controls[i] as Tedit;
         end;
   setlength(textstr,counter);
   for j:=0 to counter-1 do
    begin
      textstr[j]:=(editarry[j]).text;
      showmessage(textstr[j]);
    end;
 end;

Answer 4

var
    editstr: array[1..4]of string;
    i:integer;
    str:string;
    strName:string;
begin
   for i:= 0 to ControlCount -1 do
   begin
        if Components[i].ClassName ='TEdit' then
        begin
           strName:=Components[i].Name;
           str:=copy(strName,5,length(strName));
           editStr[strtoint(str)]:=TEdit(Components[i]).Text; 
        end; 
   end;
end;

Answer 5

问题已经解决,多谢各位的帮忙,小弟不胜感激,另外下面两句的原理是什么,我不太明白,
FindComponent('Edit' + IntToStr(I)) 
TEdit(FindComponent('Edit' + IntToStr(I)))
请zswang进一步指点,多谢!!!

Answer 6

form1.FindComponent('Edit' + IntToStr(I))将在form1上的所有组件中查找是否有name属性是'Edit' + IntToStr(I)的控件,如果存在则返回这个控件,返回值是TComponent类型,TEdit(FindComponent('Edit' + IntToStr(I)))将组件FindComponent('Edit' + IntToStr(I))强制转换为Tedit类型!