Olá amigos, este é meu primeiro artigo aqui na comunidade e para começar vou para a área que tem menos conteúdo e deixar minha singela contribuição pra vocês esta é uma função para Delphi que faz o milagre de limpar todos os campos de um Form sem você se preocupar em ficar fazendo form por form então segue abaixo a função.
é isso ai espero que gostem e façam bom uso desta função abraços e até a próxima.
Código:
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;é isso ai espero que gostem e façam bom uso desta função abraços e até a próxima.