清空panel的edit控件文字

unit Unit2;

interface
uses SysUtils,Forms,ExtCtrls,StdCtrls;
procedure ClearEdit(pl:TPanel);

implementation

procedure ClearEdit(pl:TPanel);
var i:integer;
begin
   for  i : =   0  to pl.ControlCount  - 1   do
  begin
     if  (pl.Controls[i]  is  Tedit) then (pl.Controls[i]  as  Tedit).Text : =   ''  ;
  end;
end;
end.