Artigo Clube Delphi 110 - Introdução à POO – Parte 3

Introdução à POO – Parte 3

Aprenda, de uma forma simples, a programar da forma correta

Nas partes anteriores deste mini-curso, aprendemos importantes técnicas da orientação a objetos com o Delphi. Vimos como criar classes, aplicar a herança (TCarro e TAviao agora herdam de TMeioTransporte), vimos como criar métodos virtuais e aplicar o polimorfismo, como sobrescrever métodos virtuais e chamar funcionalidades da classe base com inherited. Nesta terceira parte do nosso curso, vamos avançar mais na orientação a objetos, chegando em um nível muito próximo de aplicações reais, inclusive fazendo novamente comparações com o design de classes da VCL.

Métodos abstratos

Se lembrar da última parte do curso, implementamos no método Mover a funcionalidade básica para todos os meios de transporte, que é o ato de ligar. Mas imagine o seguinte: e se cada meio de transporte for ligado de uma forma? O que é comum nesse caso é a chamada do método, ou seja, todos devem ser ligados antes de entrar em movimento. O que muda é a maneira como são ligados (já viu que vamos falar de polimorfismo novamente). Então altere o código do método Mover da classe TMeioTransporte como mostrado na Listagem 1.

Listagem 1. Comportamento básico para todos os meios de transporte

procedure TMeioTransporte.Mover();

begin

  Ligar();

end;

Isso diz que um meio de transporte deve ser ligado sempre que entrar em movimento (tudo bem que na vida real não seja exatamente assim, mas para fins didáticos, está bom). Agora declare o método Ligar na interface da classe TMeioTransporte (Listagem 2).

Listagem 2. Método abstrato

unit uMeioTransporte;

interface

type

  TMeioTransporte = class

    Descricao : string;

    Capacidade : integer;

    procedure Mover; virtual;

    procedure Ligar; virtual; abstract;

  end;

implementation

{ TMeioTransporte }

uses"