Post: Objetos e Estruturas de Dados

Alessandro Medeiros

Fala ai Radizeiros e Radizeiras, tudo bem com vocês?

Nesse post estarei falando sobre um tema que causa dúvida em muita gente, hoje vou falar sobre objetos e estrutura de dados.

Muita gente entende como estrutura de dados o trabalho de forma procedural, e que objeto é só quando tenho uma classe, mas não é só isso.

Então, vou exemplificar isto para vocês e colocar algumas boas práticas dentro disso.

A primeira coisa é que toda vez que a pessoa está começando a aprender Delphi orientado a objeto, ele aprende sobre property, então o que ele faz? Tudo que é variável dentro da classe ele quer colocar dentro de property.

Ai eu te pergunto, para que property e para que encapsulamento, se você irá dar acesso através de métodos a alteração e a leitura de uma variável privada?

Não tem necessidade nenhuma disso, se todas as suas variáveis vão ser property, não tem porque você encapsula-las, você deixa essa variável como pública.

Dados estruturados ou estrutura de dados, é quando você monta uma estrutura de dados e dá acesso aos dados que estão dentro de uma determinada estrutura.

Se eu tenho uma classe com todas suas variáveis públicas e tudo mais, não tenho nada encapsulado, tenho tudo estruturado da forma de classe.

Se eu trabalho com o conceito de objetos, eu tenho que encapsular esses dados para trazer a tona somente aquilo que for relevante, então eu tenho que encapsula-las e tratar esse dados.

Não quer dizer, que dando acesso através de uma property eu estou encapsulando alguma coisa.

O Martin Fowler, diz bastante sobre isso, ele chama isso de sacolas de Get e Sets.

Quando trabalhamos com objetos, o intuito é de você dar acesso, como você me vê sempre falando, programe para interface e não para uma classe concreta.

O ideal é você dar exposição para aquilo que seja relevante.

Poderia fazer desta forma, por exemplo.

TCarro = class
    private
        FCapacidadeTanque: Integer;
        FLitrosDisponiveis: Integer;
        procedure SetCapacidadeTanque(const Value: Integer);
        procedure SetLitrosDisponiveis(const Value: Integer);
    published
        property CapacidadeTanque : Integer read FCapacidadeTanque write SetCapacidadeTanque;
        property LitrosDisponiveis : Integer read FLitrosDisponiveis write SetLitrosDisponiveis;
end;

Normalmente nós criamos property para essas variáveis, se observar foi criado duas variáveis privadas, duas procedures para setar essas variáveis, e estou dando acesso as essas variáveis privadas.

Desta forma não estou encapsulando nada, o fato de estar dentro da procedure ele está simplesmente pegando os valores e atribuindo valor a ele.

Eu não estou encapsulado nada, isso simplesmente são dados estruturados.

Quando eu trabalho com objetos, não precisamos dar visibilidade para o usuário, como fizemos no código anterior.

Digamos que usuário só precisa saber a capacidade disponível do tanque.

Então para isso devemos fazer desta forma.

iCarro = interface
    function CapacidadeDiponivelTanque : Integer;
end;
TCarro = class(TInterfacedObject, iCarro)
    private
        FCapacidadeTanque: Integer;
        FLitrosDisponiveis: Integer;
    public
        function CapacidadeDiponivelTanque : Integer;
end;

Veja que agora só temos acesso somente a capacidade disponível no meu tanque, dessa forma ele está realmente encapsulado, eu não dei acesso porque não é interessante eu dar acesso às informações para o usuário neste contexto, apenas irá estar disponível os objetos realmente encapsulados.

O fato de você colocar property e definir o acesso direto, você está criando uma sacola de GET e SET, você não está propriamente tratando nenhum problema, você não está encapsulado nada, não está fazendo nenhum tipo de validação.

Mas você deve está falando, eu preciso dar acesso ao meu usuário a uma property, por exemplo a Marca do carro.

TCarro = class(TInterfacedObject, iCarro)
    private
        FCapacidadeTanque: Integer;
        FLitrosDisponiveis: Integer;
        FMarca: String;
        procedure SetMarca(const Value: String);
    public
        function CapacidadeDiponivelTanque : Integer;
        property Marca : String read FMarca write SetMarca;
end;

Ao fazer desta forma e você tentar acessar essa property em outra camada veja o resultado.

Observe que não temos acesso, isso ocorre porque estamos acessando através da interface.

Então como eu faço isso?

Primeiro não devemos por campos dentro de nossas interfaces, e caso queira expor essa sua property, se ainda assim isso se fazer necessário, o que você irá precisar na sua property é adicionar um GET.

iCarro = interface
    function CapacidadeDiponivelTanque : Integer;
    procedure SetMarca(const Value: String);
    function GetMarca : String;
    property Marca : String read GetMarca write SetMarca;
end;

TCarro = class(TInterfacedObject, iCarro)
    private
        FCapacidadeTanque: Integer;
        FLitrosDisponiveis: Integer;
        FMarca: String;
        procedure SetMarca(const Value: String);
        function GetMarca : String;
    public
        function CapacidadeDiponivelTanque : Integer;
        property Marca : String read GetMarca write SetMarca;
end;

Deixando nossa property visível na interface veja agora como ela irá aparecer na camada externa.

Agora eu tenho Marca, ele não mostrou nem o GET e SET, ele simplesmente mostrou  Marca que é uma string e é uma property, dessa forma as interface aceita trabalhar com property dentro do Delphi.

Mas ainda vale ressaltar, procure encapsular os objetos dentro de sua classe, e não simplesmente dar acesso a eles através property, aí podendo ficar uma bagunça.

Esse post faz parte de um dos meus treinamentos a CERTIFICAÇÃO ESPECIALISTA EM CLEAN CODE E BOAS PRÁTICAS DE PROGRAMAÇÃO.

A Certificação Especialista em Clean Code e Boas Práticas de Programação dará a você a oportunidade de melhorar seu software, otimizar o seu tempo e te dar a possibilidade de atender melhor os seus clientes.  Conhecer a fundo essas técnicas e utilizar todos os seus benefícios irá facilitar muito a sua vida quando houver necessidade por parte de um cliente de um update rápido ou resolver um problema.

CLIQUE AQUI PARA SABER MAIS SOBRE A CERTIFICAÇÃO ESPECIALISTA EM CLEAN CODE E BOAS PRÁTICAS DE PROGRAMAÇÃO

Faça sua busca

CATEGORIAS

POSTS RECENTES

E caso você tem interesse de conhecer mais sobre Objetos e Estruturas de Dados, acesse o nosso portal do CLUBE DE PROGRAMADORES EM DELPHI
Você não terá só conteúdos relacionados ao Objetos e Estruturas de Dados, mas uma quantidade enorme de conteúdos que poderá lhe ajudar muito no seu dia a dia, é uma verdadeira NETFLIX para os programadores Delphi.
Gostou?
Compartilhe:

Embarque no foguete com milhares de devs para aprender desenvolvimento, evoluir de forma contínua e se manter relevante no mercado.

Sobre
Dúvidas
Cadastre-se em nossa lista

Para ter acesso em primeira mão, a tudo que acontece na Academia do Código, basta se cadastrar em nossa lista

Grupo Thulio Bittencourt | Academia do Código

#FaçaPartedaHistória

Copyright © 2022 – Todos os direitos reservados