首页 > 代码库 > Delphi中清除窗体编号数据

Delphi中清除窗体编号数据

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;

Delphi中清除窗体编号数据