请各位帮忙！

[zhai769275]

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

[tomboy0]

写一段代码看看你是怎么做的?

[Delphi_Li]

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;

[shmilyjiujiu]

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;