Delphi中TEdit

[kangxiang0923]

我想利用循环给几个TEdit进行操作，可以用数组？如何实现
？

[shuixin13]

for I := 0 to 71 do
begin
if Components[I] is TEdit Then //判断该Component是否为Edit
begin

(Components[I] as TEdit).Text := IntToStr(I) ;

end;//if Components[I] is TCheckBox
end;//for I

[xzhifei]

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


兄弟，拜托，多给点分吧，才20分很打消大家的积极性的，虽然这分没有什么用！

[xzhifei]

有没有搞错，怎么是同时发的，真是失败！！

[Snakeguo]

利用ComponentCount与Components数组
if Components[i] is TEdit then
...

[adventurezl]

同意楼上的同志们

[ych121]

for i:=1 to 10 do
begin
TEdit(Findcomponent('edit'+inttostr(i)).caption:='名字';//edit1,edit2..为控件的name;
end;