如何清除不知名的Edit组件的内容?请赐予我答案

[bacoln]

在窗体Form1上有10个不知名的Edit组件,如何在窗体显示时让这10个Edit组件的内容全部清空,请高手赐教.

[smiler007]

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

[小呆之家]

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

[bacoln]

非常感谢!!!

[duanhai]

dinglinger(叮当) 的方法比较好

smiler007(笑一笑) 的方法多了一个AS的类型转化