Volte no tempo – Visite sites antigos.

Hoje na faculdade um professor mostrou um site bem interessante: o Internet Archive.
Nele é possível ver como alguns sites eram há alguns anos atrás. Veja como clicando em leia mais.

Gérson, o Programador.

Tirinha excelente do André Farias.

“Varrendo” componentes no Delphi.

As vezes, quanto temos vários componentes num mesmo formulário, fica cansativo efetuar operações com todos eles ao mesmo tempo, como também aumenta o número de linhas no nosso código fonte. Nesta dica trago uma maneira de como contornar este problema.

Digamos que temos a seguinte situação: Um formulário com 30 TEdits e você que limpar todos eles. Você pode usar o método clear ou definir a propriedade text como nula:

Edit1.text := '';
//ou
Edit1.Clear;

Até aí tudo bem, o problema é que seriam 30 linhas a mais no código. Não fará diferença ao compilador, porém, fica esteticamente ruim para a manutenção (isso porque são 30 linhas, imagine se tivessemos 100 edits).

Então, como proceder? Simples:

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
begin
   for i := 0 to Self.ComponentCount - 1 do
   begin
      if UpperCase(Self.Components[i].ClassName) = Uppercase('TEdit');
         TEdit(Self.Components[i]).Clear;
   end;
end;

Explicando o código:

• Usamos o for para varrer todos os componentes do formulário;
• No if, verificamos se a classe do componente é TEdit, ou seja, verificamos se o componente é um TEdit (ou outro componente, TButton, por exemplo.);
• Caso a condição seja verdadeira, é feito um cast e executado o método clear.

Simples não é?

Dúvidas e sugestões, comentem!

Abraços e até a próxima.

Código de qualidade.

Por que programação é igual Sexo.

• Um erro de cálculo e você tem que proporcionar suporte pelo resto da vida.
• Quando você começa só termina quando está exausto.
• É preciso outra pessoa com a mesma experiência para dar valor ao que você faz.
• Por incrível que pareça, tem gente que se orgulha em não saber como é.
• Você pode fazer por prazer ou por dinheiro.
• Se você passa mais tempo fazendo do que vendo TV, as pessoas acham que você é algum tipo de maníaco.
• Não é um assunto apropriado para refeições em família.
• Nas escolas públicas não ensinam as crianças a fazer direito, nem sequer explicam nada sobre o assunto.
• Se você tenta explicar em termos clínicos, não faz sentido algum.
• Algumas pessoas nascem com o dom para fazer direitinho.
• E algumas são péssimas e não percebem isso, mesmo que você tente convencê-las elas ainda acham que são ótimas.
• Existem algumas pessoas esquisitas com práticas bizarras e técnicas com as quais ninguém se sente confortável.
• Dá pra fazer uma rapidinha durante o almoço.
• Todos agem como se fossem os primeiros a inventar uma nova técnica.
• Todos que já fizeram ao menos uma vez sacaneiam os que nunca fizeram.
• Iniciantes cometem erros e se enrolam, mas sempre acabam dando um jeitinho de chegar ao final.
• Se ficar muito tempo sem fazer, você sente falta e parece que o negócio vai “subir pra cabeça”.
• Tem sempre alguém escrevendo livros sobre a “maneira certa” de fazer.
• Não dá muito certo quando você está bêbado, mas você sempre tenta mesmo assim.
• Ás vezes é mais divertido quando você usa “aparelhinhos e brinquedinhos” caros pra dar uma incrementada na coisa.
• É muito mais rápido quando você faz sozinho.
• Quando mulheres ouvem homens falando desse assunto elas se afastam.
• Se você não toma muito cuidado, alguma coisa sempre acaba “pegando”.
• E depois que dá problema é chato, difícil, e muito embaraçoso resolver.

  Vi aqui.