Programação Orientada a Objeto - Parte II

Programação Orientada a Objeto - Parte II

Um exemplo prático em Delphi

Exemplo de POO na Linguagem Delphi

Crie um novo projeto, renome o Form para FPrincipal, salve a Unit com o nome de UPrincipal e o projeto com o nome de AplicacaoPOO.  Selecione o menu File > New > Unit – Delphi for Win32 para cria uma nova Unit sem um formulário anexo e salve essa com o nome de UClasses.

Na seção interface entre com o código abaixo;

Nesse código estamos usando o conceito de Abstração para criarmos uma nova classe.  Como toda classe é um tipo começamos digitando a palavra reservada type. 

Na linha 02 iniciamos a criação da nossa classe que é finalizado com a palavra reservada end; que se encontra na linha 08. 

Nas linhas 03 e 04 declaramos dois campos (atributos) do tipo string. 

Na linha 05 foi declarado o método Avaliação e nas linhas 06 e 07 são declarados dois outros métodos extremamente importantes.  O método constructor cria a instância do objeto, fazendo as alocações em memória e disponibilizando o objeto para uso, dessa maneira sempre que precisarmos instanciar um objeto devemos chamar esse método.  Já o método destructor faz o inverso do constructor, ele destrói o objeto instanciado liberando a memória.

Com o prompot dentro da declaração da classe pressione Ctrl+Shift+C e entre com o seguinte código:

Esse código é bem simples e praticamente dispensa explicações, o único detalhe novo que temos aqui é a palavra reservada Self, poderíamos ter atribuído valores aos campos Nome e Fone sem utilizá-la, mas para evitar ambigüidade utilizamos o Self para fazer uma referência implícita à própria classe.

Volte para o FPrincipal, declare UClasses na cláusula uses da seção implementation, coloque um componente TButton e em seu evento OnClick entre com o código abaixo, compile e teste:

Na linha 03 estamos declarando o objeto Aluno do tipo TPessoa.  A linha 05 estamos instanciando o objeto Aluno.  A linha 06 nos mostra o valor dos campos após o objeto ter sido instanciado.  Nas linhas 07 e 08 estamos atribuindo novos valores nos campos do objeto.  A linha 09 executa o método Avaliação, enquanto na linha 10 é mostrado os novos valores atribuídos aos campos.