请各位帮忙！

Question

各位大侠：
    目前，我想使自己的窗口上的所有Edit中内容付值给一个数组，利用了 for循环可是在循环中怎么也不能实现，请各位大侠赐教！！！！！！！

Answer 1

1、你最好把你的Edit的Tag属性设置成与数组的下标一致。
2、利用
For I = 0 To ControlCount - 1 Do
Begin
     If UpperCase( Controls[ I ].ClassName ) = 'TEDIT' Then
     Begin
          你的数组[ TEdit( Controls[ I ] ).Tag ] := TEdit( Controls[ I ] ).Text;
     End;
End;

Answer 2

for i:=0 to form1.ControlCount-1 do
    begin
        if (form1.Controls[i] is TEdit) then
        begin
            array1[i]:=(form1.Controls[i] as TEdit).Text ;
        end;
    end;