Posts de: novembro de 2008

Limpar os Edits, Maskedits e Memos de um form de uma só vez

Para fazer uma simples rotina de limpar o form, use a seguinte procedure: procedure LimpaEdit (Form: TForm); var i : Integer; begin for i := 0 to Form.ComponentCount - 1 do if Form.Components is TCustomEdit then (Form.Components as TCustomEdit).Clear; end; Isso fará com que os Edits, Memos, MaskEdits, etc sejam limpados continue lendo »