有没有函数可以让全部edit的text为空？

Question

我想在form退出后自动把edit的text清空，但由于edit太多，我不想在close或destory事件后写。text=‘’；有没有什么函数呢？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ControlCount-1 do
  if Controls[I].InheritsFrom(TEdit) then
    TEdit(Controls[I]).Text := '';
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

谢谢在onshow事件里面可以实现了，马上家粉