Delphi批量清空edit中的数据代码

mianfeiziyuan

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i := 0 to 200 do
begin
if FindComponent(Format('Edit%d',[i])) <> nil then
TEdit(FindComponent(Format('Edit%d',[i]))).Clear;
end;
end;