Percorrer todos os Edits do Form em Delphi

Olá.

Em algum projeto você ja precisou percorrer todos os controles do formulário que esta trabalhando? 
Imagine se precisar limpar todos os TEdit do seu form, tendo em mente que são 5 ou 6 destes componentes, talvez fazer um código tabajara e limpar manualmente seja a melhor opção, agora e se fosse 50 TEdits a serem limpos? Ai já não é la muito inteligente fazer tudo no braço.
Melhor maneira de resolver este problema é fazer um método varrer todo o formulário em busca destes componentes. 



Em Delphi podemos fazer isso de uma maneira bem tranquila, veja o código abaixo:



O que acontece durante a execução do código acima é que, toda vez que um novo componente é colocado no Form (que é um objeto conteiner) ele é adicionado numa lista de objeto e evidentemente posso percorrer esta lista, no if dentro do laço acontece o teste pra saber se o componente na posição atual é de uma determinada classe (neste caso TEdit) case seja verdadeiro, acionamos a propriedade Clear.

Para visualizar o aplicativo exemplo rodando veja o vídeo abaixo.


A aplicação deste recurso é bem ampla. Eu mesmo utilizo para confeccionar os privilégios de acesso que um usuário possui dentro das minhas aplicações.

Até a próxima.

Comentários

Postar um comentário

Postagens mais visitadas deste blog

AWS para Desenvolvedores - Dominando S3 com Delphi

Imagem
Olá, Neste post vamos falar de Amazon S3 um serviço de armazenamento de dados na nuvem da AWS altamente escalável e confiável. É amplamente utilizado no mundo inclusive em soluções bem conhecidas como DropBox.  Pode ser acessado através do console de gerenciamento, desde que tenha uma conta é claro. http://console.aws.amazon.com No S3 alguns conceitos são importantes na hora de utilizar o serviço, por exemplo lá tudo que é armazenado são objetos, não importa o arquivo que você mandar pra lá, ele sempre sera tratado como objeto. Este objeto pode ter tamanho entre 1 byte e 5 Terabytes. Por lá também não existem pastas, apenas buckets, sendo o número de buckets limitados a 100 e sendo ilimitado o numero de objetos que pode ser armazenado. No Delphi XE 10.2 temos um componente nativo muito interessante que nos permite conectar com os serviços da Amazon de forma muito simplória. O componente destacado na figura acima é o TAmazonConnectionInfo basta apenas adiciona-...
Leia mais

Preenchendo com zeros a esquerda de um valor com Firebird

Olá, estes dias um novo cliente, precisava cadastrar seus produtos e me falou que nem todos tinham código de barras, então eu falei a ele, deixa eu branco que eu gero depois de forma automatizada. Até ai tudo simples, contudo alguns produtos tinham os referidos códigos e orientei que fossem inseridos no programa via leitor. Após a finalização da etapa destes cadastros o cliente queria imprimir etiquetas para seus produtos sem código. Bom, nada de mais, vamos lá. Primeiro tive a brilhante ideia de gerar valores simples baseado no código de chave primaria da tabela de produtos, claro que somente estes valores não seriam muito legais por serem poucos algarismos nos registros iniciais, então pensei em pegar o ano corrente e o código de chave primaria para compor o código de barras.  No entanto ainda era necessário preencher com zeros a esquerda do valor do código de barras pois o leitor ia retornar um algarismos com 13 caracteres devido o padrão utilizado ser EAM13. Então utiliz...
Leia mais

Selecionando apenas o ultimo registro inserido com SQLite

Olá. Não é muito difícil surgir a necessidade de se buscar apenas o ultimo registro em bases de dados. Em todos os casos é muito simples de ser feito. O SQLite a exemplo do MySQL também possui um parâmetro chamado LIMIT que determina quantos registros a query deve retornar. Bem diversas são as formas de ser fazer isso e utilizando o poder da própria engine do banco de dados podemos ter sucesso utilizando a seguinte instrução.: SELECT * FROM SUATABELA ORDER BY SEUCAMPO DESC LIMIT 1 Exemplo: select * from secretarias order by codigo desc limit 1 Simples não?
Leia mais