Limpar Edit, Memo de um form - Delphi

 

procedure LimpaEdit (Form: TForm);
var
i : Integer;
    begin
        for i := 0 to Form.ComponentCount - 1 do
            if Form.Components[i] is TCustomEdit then
                (Form.Components[i] as TCustomEdit).Clear;
    end;   

Comentários