Question

delphi 把窗体上的所有EDIT清空怎么做

Answer 1

delphi 窗体上的所有元件，都保存在 Components 数组中，因此，可以遍历该数组，判断是否为 Edit 组件，再调用 Clear 方法清空即可。以下是示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to self.ComponentCount-1 do
  begin
     if (self.Components[i] is Tedit) then
     begin
       Tedit(Components[i]).Clear;
     end;
   end;
end;