如何清空窗体（Form）上的所有Edit框？？

Question

如何清空窗体（Form）上的所有Edit框??

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to Form1.ControlCount-1 do
    if Form1.Components[i] is TEdit then
      TEdit(Components[i]).Text:='';end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TEdit then
      TEdit(Components[I]).Clear;
end;

Answer 3

假设窗体名为FORM1，代码：
procedure ClearAllEdits;
var i:Integer;
begin
  for i:=Form1.ComponentCount-1 downto 0 do
  begin
    if Components[i] is TEdit then
      TEdit(Components[i]).Free;
  end;
end;
//注意：这里的EDIT控件要是动态创建的，我不保证不是动态创建的EDIT也可以（没试过）

Answer 4

刪除EDIT
procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TEdit then
      TEdit(Components[I]).Clear;
end;
請空EDIT的内容
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to Form1.ControlCount-1 do
    if Form1.Components[i] is TEdit then
      TEdit(Components[i]).Text:='';end;

Answer 5

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TEdit then
      (Components[I] as Tedit).Clear;
end;

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var intI:integer;
begin
  for intI:=0 to Form1.ControlCount-1 do
    if Form1.Components[intI] is TEdit then
      TEdit(Components[intI]).clear;
end;

Answer 7

参考：http://218.56.11.178:8018/Filedown.aspx?FID=219

Answer 8

本想写出代码出来，可惜lmj2003(西才) 已经写了。