Limpar Edit, Memo de um form – Delphi

Anúncios

  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;   

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *