Vitor Rubio Developer - Dicas de programação

Se você ler o livro Padrões de Projeto   verá que há uma crítica quanto ao uso indiscriminado de Herança. Na verdade o livro mostra que existem outras maneiras de se incorporar ou agregar várias funcionalidades e depois conseguir incorporar ainda outras sem  o uso de herança. Lendo este livro você verá que há uma discrepância grande entre a Análise Orientada a Objeto (AOO) e a Programação Orientada a Objeto (POO). Enquanto a AOO defende que não pode existir em código nenhum objeto que não seja representante ou modelo de um objeto do "mundo real" a POO, por restrições e questões técnicas, apresenta as figuras das classes de persistência (inexistentes no mundo real) dos DTO (data transfer objects, também inexistentes) dentre outros modelos e padrões. Além disso, em POO você pode ver coisas como sobrecarga de operadores, caso em que a AOO nem sequer cita. Enquanto o livro Padrões de Projeto foca na POO, ignorando algumas premissas da AOO, ele também põe a herança em s...

Você já se perguntou como suprimir o método Create para que não seja utilizado? Tentar "esconder" o constructor colocando-o como private não irá funcionar por um motivo simples: ao utilizar o create será visível e perfeitamente "invocável" o create da classe base, que não conterá as informações necessárias para criar realmente o objeto e poderá causar access violations. O que fazer então? Na verdade o constructor create nada mais é do que uma espécie de class method (método de classe) especial que serve como alias para o NewInstance. O Create atua como um factory method nativo e bem simples, sendo o  NewInstance que efetivamente aloca memória e constroi o objeto. Então uma maneira muito elegante de se criar um singleton é, em vez de disparar um exception caso o método create seja executado mais de uma vez, sobrecarregar os métodos NewInstance e FreeInstance para impedir que de fato o objeto seja criado duas vezes, ou destruido antes do tempo. Esses m...

No último post desta série mostramos como preparar um singleton que funciona tanto em Delphi como em Lazarus. Neste post veremos como criar um singleton mais elegante que funcione sem métodos ou variáveis estáticas. Usaremos class vars e class methods para isso. Porém a lógica será a mesma do exemplo anterior. Objeto Único: unit uSingleton; interface uses DateUtils, SysUtils, Windows, dialogs; type TObjetoUnico = class private FDataHora: string; class var FObjetoUnico: TObjetoUnico; class var FContador: Integer; class function GetObjetoUnico: TObjetoUnico; static; class function GetContador: integer; static; public constructor Create; destructor Destroy; override; function GetDataHora: string; virtual; class property ObjetoUnico: TObjetoUnico read GetObjetoUnico; class property Contador: integer read GetContador; property DataHora: string read GetDataHora write FDataHora; end; procedure VerificaObjetoUnicoCriado; ...