Depois de incansáveis batalhas na manutenção do projeto/produto da empresa, criei uma classe Singleton para controlar a sessão do usuário.
Ainda está em desenvolvimento, mas a galera já aprovou.
TSession = class
…
public
User : TUser;
Tasks : TTask;
Parameters : TParameters;
Log : TLog;
…
end;
Com essa estrutura minimizamos consulta a banco de dados, fechamos Query abertas em toda execução do sistema, e mantivemos um único ponto de acesso ao Log.
Para nomear um componente utilizo um prefixo baseado em sua classe. E porque não deixar Button1, Button23… ? O motivo para adoção desse método de nomenclatura é para achar e identificar no código o objeto e já saber qual classe sua instancia pertence, sem falar que um nome bem aplicado já resumo sua ação.
Abaixo lista com alguns dos componentes mais usados.
Quase toda empresa de desenvolvimento tem uma sigla que faz referência a seus produtos, por exemplo, já trabalhei com o prefixo “Egis”, “New”, “TTI” e etc.
Isso é bom para fechar pacotes e ter uma identificação rápida nos clientes, que não tem apenas o seu sistema. E se sua empresa tem um produto confiável, esse sufixo fortalece a idéia de qualidade.
Escolher um padrão é fácil, difícil é aplica-lo, o programador nunca quer mudar a forma de programar que ele aprendeu, seja em um curso ou em seu primeiro estágio/emprego. Torço para que tenha começado direito ou tenham força de vontade de fazer da maneira mais coerente. Conheci programadores que falam que OO é um porcaria que só dá trabalho, e este caso foi recente, isso porque ele já tinha 8 anos de experiência, e ainda não conhecia OO e seus fundamentos. Adotar um padrão requer um mínimo de esforço, estudo e diciplina.
Um padrão aumenta a produtividade, diminui o tempo de compreensão e manutenção. Faz com que todos na equipe mantenham o mesmo ritmo e que realmente todos falem a mesma língua formatada.
Apresente-lhes minha forma de programar.
Pretendo em uma série de artigos, mostrar a minha forma de codificação em ambiente ObjectPascal/Delphi.
Bom quem já tentou em delphi fazer uma janela de wait? Mas queria colocar uma animação “relojinho”, ou até mesmo aquele gif de loading.
Bom o Delphi existe o TAnimate na paleta Win32, mas ele não faz muito o que promete. Mesmo com a opção Timers := True, ainda ele dá aquelas travadas na execução do AVI. Para isso existe o Ani95 um componente bem antigo, mas funciona muito bem até hoje.
Quem sabe coloco aqui, um belo exemplo de janela Form/Class Wait.
Plantando idéias 