1. 程式人生 > >delphi 把窗體上的所有EDIT清空

delphi 把窗體上的所有EDIT清空

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;