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

Question

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

Answer 1

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

Answer 2

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

Answer 3

dinglinger(叮当) 的方法比较好smiler007(笑一笑) 的方法多了一个AS的类型转化