如何对多个edit控件整体赋值？

[nx_lsj]

有多个edit控件，edit1,edit2.......edit10，现在想让它们都清空，有办法一次
性清空吗？

[lizhenjia]

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

[jy_1201]

up

[breezing]

for i := 0 to Controlcount do
if controls[i] is Tedit then
(controls[i] as tedit).text := ''

[票票飞扬]

for i := 1 to 10 do
TEdit(FindComponent('Edit'+IntToStr(i))).Text := '';

[Jackeystone]

Up

[l_xiaofeng]

for i:=0 to componentcount-1 do
begin
temp:=components[i];
if temp is tedit then
(temp as tedit).Text:=''
else
if temp is tcombobox then
(temp as tcombobox).Text:='';
end;

[beata88]

楼上