Introdução à Orientação a Objetos
O paradigma da Orientação a Objetos
Um paradigma é uma forma de abordar um problema.
O paradigma da orientação a objetos surgiu no fim dos anos 60.
Hoje em dia, praticamente suplantou o paradigma anterior, o paradigma estruturado...
O paradigma da Orientação a Objetos
Alan Kay, um dos pais do paradigma da orientação a objetos, formulou a chamada analogia biológica.
“Como seria um sistema de software que funcionasse como um ser vivo?
Analogia Biológica Cada “célula” interagiria com outras células através do
envio de mensagens para realizar um objetivo comum.
Adicionalmente, cada célula se comportaria como uma unidade autônoma.
Analogia Biológica De uma forma mais geral, Kay pensou em como construir
um sistema de software a partir de agentes autônomos que interagem entre si.
Com isso, ele estabeleceu os princípios da orientação a objetos.
Orientação a Objetos - Princípios Tudo é um objeto.
Pense em um objeto como uma super variável: ele armazena dados, mas você também pode fazer requisições a esse objeto, pedindo que ele faça operações sobre si próprio. Em teoria, você pode representar qualquer elemento conceitual no problema que você está tentando resolver (cachorros, livros, sócios, empréstimos, etc.) como um objeto no seu programa.
Orientação a Objetos - Princípios Um programa é uma coleção de objetos dizendo uns
aos outros o que fazer.Para fazer uma requisição a um objeto você “manda uma mensagem” para este objeto. Mais concretamente, você pode pensar em uma mensagem como sendo uma chamada de um procedimento ou função pertencente a um objeto em particular.
Orientação a Objetos - Princípios Um objeto pode ser composto por vários outros
objetosEm outras palavras: você pode criar um novo tipo de objeto empacotando objetos existentes. Dessa forma, você pode adicionar complexidade a um programa e escondê-la por trás da simplicidade de uso dos objetos.
Orientação a Objetos - Princípios Todo objeto tem um tipo.
Usando as palavras certas, cada objeto é uma instância de uma classe, onde classe é um sinônimo de tipo. A questão mais importante relativa a uma classe é “que mensagens eu posso enviar para uma instância dessa classe?”
Orientação a Objetos - Princípios Todos os objetos de um dado tipo podem receber as
mesmas mensagens.Além disso, uma vez que, por exemplo, um objeto do tipo “círculo” é também um objeto do tipo “forma geométrica”, o objeto “círculo” aceita qualquer mensagem endereçada a uma “forma geométrica”. Essa capacidade de “subtituição” de um objeto por outro é um dos mais poderosos conceitos em orientação a objetos.
Objeto
• Definição:• Um conceito, uma abstração com significado específico em um
contexto
• Propósito:• Entidade de software que reflete de alguma forma o mundo real• Representar uma entidade do mundo real
• Objetos possuem:• Identidade• Conjunto de características que determinam seu estado• Comportamento específico definido por um conjunto de ações
Abstração
Uma abstração é qualquer modelo que inclui os aspectos relevantes de alguma coisa, ao mesmo tempo em que ignora os menos importantes.
Exemplos
Beija-Flor
Identidade: ‘o beija-flor que vem ao meu jardim’
Características:penas azuisbico finovôo rápido
Comportamento:voarpiar
Exemplo Pessoa
Identidade: ‘Mário’
Características:olhos pretosnasceu em 16/02/70pesa 70kg
mede 1,70mComportamento:
andarfalarcomerrir
Exemplo
Telefone
Identidade:: número 2576-0989
Características:azul2.4 GHztone
Comportamento:tocardiscar
Exemplo
ÔnibusIdentidade: placa LXY 7684
Características:cor amarela30 assentos
a diesel
Comportamento:frearandarcorrerbuzinaracelerar
Objeto
Representação
Mário
Características(estado)
Comportamento
Identidade
Serviços, Interface ou protocolo
Objeto Implementação
Interface Visível Conjunto de operações
Parte encapsulada (escondida) Estado do Objeto - Atributos Implementação de suas operações - Métodos
Estado do Objeto (valor de seus atributos)
Serviços, Operações ou Interface da Classe
Encapsulamento Na terminologia da orientação a objetos, diz-se que um
objeto possui uma interface.
A interface de um objeto é o que ele conhece e o que ele sabe fazer, sem descrever como o objeto conhece ou faz.
A interface de um objeto define os serviços que ele pode realizar e conseqüentemente as mensagens que ele recebe.
Encapsulamento
Uma interface pode ter várias formas de implementação.
Mas, pelo Princípio do Encapsulamento, a implementação de um serviço no objeto servidor não importa para o objeto cliente. (O cliente confia em interfaces e não em implementações)
Classe Definição:
Abstrações utilizadas para representar um conjunto de objetos com características e comportamento idênticos
Uma classe pode ser vista como uma “fábrica de objetos”
Tecnicamente falando, objetos são “instâncias” em tempo de execução de uma classe
Todos os objetos são instâncias de alguma classe
Todos os objetos de uma classe são idênticos no que diz respeito a sua interface e implementação (o que difere um objeto de outro é seu estado e sua identidade)
Exemplo
Características:cor das penas: azuisformato do bico: finovelocidade de vôo: rápida
Comportamento:voarpiar
Identidade::o beija-flor que vem ao meu jardim
classe
instância da classe (objeto)
Exemplo
Identidade:: meu pombo correioCaracterísticas:
cor das penas: cinzaformato do bico: curtovelocidade de vôo: média
Comportamento:voarpiar
classe
instância da classe (objeto)
Implementação em Delphi
A classe
O objeto
Implementação em Java
Implementação em VB
Exemplo
Identidade: ‘Telefone da minha casa’
Características:marca: Siemensnúmero: 2576-0989discagem: pulso
Comportamento:tocardiscar
classe
instância da classe (objeto)
Exemplo
classe
instância da classe (objeto)
Identidade: ‘Meu celular’
Características:marca: Nokianúmero: 99193467discagem: tom
Comportamento:tocardiscar
Implementação em Delphi
A classe
O objeto
ver anotações
Implementação em Java
Implementação em VB
Classes
Classe
Instâncias(objetos)
Implementação em Delphi
A classe
As instâncias
Implementação em Java
Implementação em Java
Atributos Descrevem as características das instâncias de uma classe Seus valores definem o estado do objeto O estado de um objeto pode mudar ao longo de sua existência A identidade de um objeto, contudo, nunca muda
Funcionário_Helena
Nome=Helena ReisNasc=28/01/1965Salário = 4.000
InformarSalárioCalcularIdade
Funcionário_Mário
Nome=Mário SáNasc=16/02/1970Salário = 3.000
InformarSalárioCalcularIdade
Serviços/Operações Representam o comportamento das instâncias de uma classe Correspondem ao protocolo ou ações das instâncias de uma classe
Funcionário_Helena
Nome=Helena ReisNasc=28/01/1965Salário = 4.000
InformarSalárioCalcularIdade
Funcionário_Mário
Nome=Mário SáNasc=16/02/1970Salário = 3.000
InformarSalárioCalcularIdade
4000
3000
Informar Salário?
Implementação em Delphi
ver anotações
Operações/Métodos Um método é a implementação de uma operação
Operações/Métodos (Java)
Serviços/Operações Métodos só tem acesso aos dados da classe para a qual
foram definidos
CORRETO!
ERRADO!
Serviços/Operações Os dados de uma classe só podem ser manipulados por métodos da
classe (pelo princípio do encapsulamento)ERRADO!
ERRADO!
CORRETO!
Serviços/Métodos Métodos possuem argumentos, variáveis locais , valor de
retorno etc
Serviços/Métodos Alguns métodos especiais:
Construtores – criam objetos de uma classe Destrutores – destroem objetos de uma classe
1ª alternativa: Sem um método construtor
A classe herda um construtor padrão de TObject
O método construtor2ª alternativa: fazendo uso de um método construtor
Passos para a criação de um objeto
1. Declarar uma referência para o objeto
func1: Funcionario;
2. Criar uma instância do objetofunc1 := Funcionario.Create;
O sistema operacional aloca espaço em memória para o novo objeto e preenche os seus atributos com valores default (zero para números, nil para referências, false para booleanos, string vazia para Strings.
Passos para a criação de um objeto
3. Se houver um método construtor, este é invocado
O método construtor é usado para alterar os valores default dos atributos possibilitando que o objeto se torne disponível para a aplicação já em um estado pré-definido
4. Modificação explícita do estado do objetofunc1.salario := 4000; // se o atributo é públicofunc1.gravaSalario(4000); // caso contrário
A referência para o objeto pode ser usada para alterar o estado dos atributos do objeto.
O método construtor (FAQ) É obrigatória a inclusão de um método construtor na
classe? Não. Um construtor default é herdado de TObject. Este
construtor aloca espaço para o novo objeto em memória e cria um objeto com os atributos e referências todas preenchidas com zeros.
Quando então devo escrever um método construtor? Quando houver atributos privados que não possam mais
ser alterados uma vez que o objeto tenha sido instanciado
Quando o objeto for um objeto complexo, cuja arquitetura interna (atributos e referências) não é conhecida pelo programador.
O construtor padrão
Herança O que é herança?Herdar é derivar características de gerações precedentes. No mundo da Programação Orientada a Objetos, o termo é associado com uma das formas de reutilização de software. Através da herança, novas classes podem ser derivadas das classes existentes. A nova classe herda propriedades e métodos da classe base. A nova classe também pode adicionar suas próprias propriedades e métodos
Herança Para que serve a herança?
Considere a criação de uma classe ClasseB em Delphi.
Que métodos estão disponíveis através de uma referência para a ClasseB (isto é, um objeto)?
Herança
Herança
Suponha agora que a classe ClasseB herda de ClasseA
Que métodos estão agora disponíveis para uma referência da ClasseB (um objeto) ?
Herança
Herança Poderoso mecanismo para o reaproveitamento de código
O objeto objB tem agora disponíveis os métodos da ClasseA sem ser necessário reescrevê-los na ClasseB
Um objeto da ClasseB também é um objeto da ClasseA.
Facilita a manutenção do código: Os métodos não são replicados. Se for necessário alterar o código do método m3, basta alterá-lo em ClasseA.
ClasseB pode "recusar" parte da herança reimplementando os métodos herdados
Herança
O método m3 agora disponível para objB é aquele implementado em ClasseB
Herança
Várias subclasses podem herdar da mesma superclasse
Herança Em Delphi, não é permitido herdar de mais de uma classe
ERRADO!!!!
Herança A hierarquia de herança pode ter vários níveis
Herança
Que métodos estão agora disponíveis para uma instância de ClasseC?
Herança A Herança também pode surgir a partir da refatoração de
classes existentes de modo a eliminar a duplicação de código
Grande quantidade de atributos e métodos duplicados...
Herança Refatoração
Superclasse(características comuns)
Subclasses(características específicas)
Herança
O mecanismo de herança pode ser melhor entendido através do seguinte exemplo:
Herança A classe ContaBancaria tem quatro atributos:
nome: armazena o nome do cliente cpf: armazena o número do CPF do cliente numeroConta: armazena o número da conta do cliente saldo: armazena o saldo da conta
Os métodos depositar e sacar são usados para fazer um depósito ou retirada da conta bancária.
A classe ContaBancária, sozinha, não é suficiente para realizar todas as transações bancárias. Existem geralmente dois tipos de contas: a conta corrente e a conta de investimentos
Herança
Vamos derivar portanto duas subclasses que herdam da superclasse ContaCorrente
Herança
As subclasses ContaInvestimento e ContaCorrente herdam as propriedades e métodos da classe ContaBancaria
Herança
Agora é possível fazer:
Apesar do construtor create e do método depositar não terem sido definidos para a classe ContaCorrente, eles estão disponíveis devido ao mecanismo de herança
Composição
Composição A classe contém referências para objetos de outras
classes Estas referências são também atributos da classe
Uma maneira alternativa de estender a funcionalidade de uma classe agregando funcionalidades de outras classes
Herança vs. ComposiçãoÉ UM vs. TEM UM
Composição O mecanismo de herança nem sempre é apropriado
Delphi não tem herança múltipla
Estender funcionalidade através de herança pode não ser "natural":
Uma conta de investimento é uma conta bancária
Uma conta de investimento não é uma TColor!
Composição Considere a seguinte situação:
::Project2
CA
m1(...)m2(...)
CB
m3(...)m4(...)
Composição Considere agora que é preciso estender a funcionalidade
da classe CA oferecendo em sua interface também os métodos m3( ) e m4( )
Composição 1a solução: Implementar os métodos m3( ) e m4( ) na
classe CA.
Desvantagem: duplicação de métodos dificulta a manutenção do
software
::Project2
CA
m1(...)m2(...)m3(...)m4(...)
CB
m3(...)m4(...)
Composição
2a solução: Herança
Desvantagens: Conceitualmente, a
classe CA pode não SER uma classe CB
Delphi não suporta herança múltipla. E se fosse necessário oferecer os serviços m5() e m6() de uma classe CC?
::Project2
CA
m1(...)m2(...)
CB
m3(...)m4(...)
Composição 3a solução: Composição
::Project2
CA
b : CB
create(...)m1(...)m2(...)
CB
m3(...)m4(...)
Composição Que serviços estão
disponíveis para uma referência da classe CA?
Composição No entanto, é possível
fazer:
Observe a utilização dos métodos m3 e m4 através de uma referência para a classe CB
Composição Esse processo é também conhecido por delegação: a
classe CA delega à classe CB a execução dos serviços m3 e m4
Observe que o atributo b na classe A é público. Diz-se então que a delegação é pública, isto é, ela é visível para os clientes da classe
Um cliente da classe CA, para usar os métodos m3 e m4, deve estar ciente da delegação e fazer:obj.b.m3;
Composição É possível tornar a delegação privada:
::Project2
CA
b : CB
create(...)m1(...)m2(...)m3(...)m4(...)
CB
m3(...)m4(...)
Composição Oferecer os serviços m3 e m4 na classe CA não significa,
neste caso, duplicar código. Os métodos m3 e m4 em CA são apenas uma fachada para os métodos m3 e m4 em CB
Composição Que serviços estão agora disponíveis para uma
referência da classe CA?
Observe que, agora, o cliente da classe não conhece a delegação: para ele tudo se passa como se os métodos m3 e m4 fossem implementados em CA
Composição Um exemplo no próprio Delphi: A listbox
Para incluir uma nova linha em uma listbox faz-se:
ListBox1.Items.Add('MS');método da classe TStringList
delegação
Composição
::Unit1
::<<Unknown>>::TForm
TForm1
ListBox1 : TListBox
FormCreate(...)
TListBox
Items : TStringList
create(...)
TStringList
Add(...)
::Project2
Empregado
admissao : Datanascimento : Datanome : String
create(...)toString(...)
Data
ano : integerdia : integermes : integer
create(...)toString(...)
Composição Um serviço oferecido por uma classe pode não ser
exatamente uma fachada para a classe delegada, mas uma combinação de serviços oferecidos por esta.
Observe atentamente o código a seguir:
admissao
nascimento
program Project2;{$APPTYPE CONSOLE}uses SysUtils;
type Data = class private dia: integer; mes: integer; ano: integer; public constructor create(d:integer; m:integer; a: integer); function toString(): String; // imprime a data no formato dd/mm/aaaa end;
Empregado = class private nome: String; nascimento: Data; admissao: Data; public constructor create(nom: String; nas: Data; adm: Data); function toString(): String; end;
imprime a data no formato dd/mm/aaaa
imprime nome, data de nascimento e data de
admissão do Empregado
constructor Data.create(d, m, a: integer);begin dia := d; mes := m; ano := a;end;
function Data.toString: String;begin result := format('%0.2d/%0.2d/%0.4d', [dia, mes, ano]);end;
constructor Empregado.create(nom: String; nas, adm: Data);begin nome := nom; nascimento := nas; admissao := adm;end;
function Empregado.toString: String;begin result := 'nome: ' + nome + chr(13) + chr(10) + 'nascimento: ' + nascimento.toString + chr(13) + chr(10) + 'admissao: ' + admissao.toString;end;
%0.2dse o campo tem apenas um dígito preenche com
um zero à esquerda
chr(13)+chr(10)
muda de linha
var emp: Empregado; data1, data2: Data; aux: string; dia, mes, ano: integer;begin write('Data do aniversario[dd/mm/aaaa]: '); readln(aux); dia := StrToInt(copy(aux, 1, 2)); mes := StrToInt(copy(aux, 4, 2)); ano := StrToInt(copy(aux, 7, 4)); data1 := Data.Create(dia, mes, ano);
write('Data da admissao[dd/mm/aaaa]: '); readln(aux); dia := StrToInt(copy(aux, 1, 2)); mes := StrToInt(copy(aux, 4, 2)); ano := StrToInt(copy(aux, 7, 4)); data2 := Data.Create(dia, mes, ano);
write('nome: '); readln(aux);
emp := Empregado.create(aux, data1, data2); writeln(emp.toString); readln;end.
lê uma String contendo a data de aniversário e usa
a função Copy para separar o dia, o mês e o
ano
o mesmo para a data de admissão
instancia um objeto Empregadoinvoca o método toString
da classe Empregado. Este, por sua vez, usa o
método toString da classe Data
Composição Vamos repetir o mesmo exemplo, dessa vez usando uma
interface gráfica com o usuário
Observe a utilização das mesmas classes de negócio (Empregado e Data)
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; edtNome: TEdit; edtNasc: TEdit; edtAdm: TEdit; btnImprime: TButton; procedure btnImprimeClick(Sender: TObject); private { Private declarations } public { Public declarations } end;
Data = class private dia: integer; mes: integer; ano: integer; public constructor create(d:integer; m:integer; a: integer); function toString(): String; end;
Empregado = class private nome: String; nascimento: Data; admissao: Data; public constructor create(nom: String; nas: Data; adm: Data); function toString(): String; end;
var Form1: TForm1;
implementation{$R *.DFM}constructor Data.create(d, m, a: integer);begin dia := d; mes := m; ano := a;end;
function Data.toString: String;begin result := format('%0.2d/%0.2d/%0.4d', [dia, mes, ano]);end;
constructor Empregado.create(nom: String; nas, adm: Data);begin nome := nom; nascimento := nas; admissao := adm;end;
function Empregado.toString: String;begin result := 'nome: ' + nome + chr(13) + chr(10) + 'nascimento: ' + nascimento.toString + chr(13) + chr(10) + 'admissao: ' + admissao.toString;end;
procedure TForm1.btnImprimeClick(Sender: TObject);var emp: Empregado; data1, data2: Data; dia, mes, ano: integer;begin dia := StrToInt(copy(edtNasc.Text, 1, 2)); mes := StrToInt(copy(edtNasc.Text, 4, 2)); ano := StrToInt(copy(edtNasc.Text, 7, 4)); data1 := Data.Create(dia, mes, ano);
dia := StrToInt(copy(edtAdm.Text, 1, 2)); mes := StrToInt(copy(edtAdm.Text, 4, 2)); ano := StrToInt(copy(edtAdm.Text, 7, 4)); data2 := Data.Create(dia, mes, ano);
emp := Empregado.create(edtNome.Text, data1, data2); ShowMessage(emp.toString);end;
end.
Polimorfismo
Polimorfismo "Programação Genérica"
Trata objetos na mesma hierarquia de classes como se todos fossem objetos da superclasse
Tornam o programa extensível Facilidade para adicionar novas classes
Nesta seção: invocaremos os métodos das subclasses usando referências para a superclasse
Polimorfismo Conceito Chave
Objetos das subclasses podem ser tratados como objetos da superclasse
::Project2
A
m1(...)m2(...)
B
m1(...)m3(...)
A classe B É UMA classe A Um objeto da classe B pode ser usado em qualquer lugar onde um objeto A é esperado.
B A
Polimorfismo Tabelas Virtuais
Classe Aoperação método invocadom1() A.m1()m2() A.m2()
::Project2
A
m1(...)m2(...)
B
m1(...)m3(...)
Classe Boperação método invocadom1() B.m1()m2() A.m2()m3() B.m3()
Polimorfismo E
program Project2;{$APPTYPE CONSOLE}uses SysUtils;
type A = class procedure m1(); virtual; procedure m2(); end;
B = class(A) procedure m1(); override; procedure m3(); end; Falaremos disso mais
tarde...
procedure A.m1;begin writeln('A.m1()');end;
procedure A.m2;begin writeln('A.m2()');end;
procedure B.m1;begin writeln('B.m1()');end;
procedure B.m3;begin writeln('B.m3()');end;
mensagens de teste usadas para verificar a chamada dos métodos
Polimorfismo Programa de teste
var objA: A;begin objA := A.Create; objA.m1; objA.m2; readln;end.
::Project2
A
m1(...)m2(...)
B
m1(...)m3(...)
Polimorfismo Outro programa de teste
var objB: B;begin objB := B.Create; objB.m1; objB.m2; objB.m3; readln;end.
::Project2
A
m1(...)m2(...)
B
m1(...)m3(...)
Polimorfismo E agora a mágica!
var obj: A;begin obj := A.Create; writeln('obj := A.Create'); obj.m1; obj.m2; writeln; obj := B.Create; writeln('obj := B.Create'); obj.m1; obj.m2; readln;end.
• A referência para a superclasse é usada para instanciar objetos da superclasse (Classe A) e da subclasse (Classe B)
• Por que o compilador não acusa um erro? Porque um objeto da classe B é também um objeto da classe A
Polimorfismovar obj: A;begin obj := A.Create; writeln('obj := A.Create'); obj.m1; obj.m2; writeln; obj := B.Create; writeln('obj := B.Create'); obj.m1; obj.m2; readln;end.
::Project2
A
m1(...)m2(...)
B
m1(...)m3(...)
Polimorfismo "Programação Genérica"
Trata objetos na mesma hierarquia de classes como se todos fossem objetos da superclasse
Tornam o programa extensível Facilidade para adicionar novas classes
Nesta seção: invocaremos os métodos das subclasses usando referências para a superclasse
Polimorfismo Conceito Chave
Objetos das subclasses podem ser tratados como objetos da superclasse
::Project2
A
m1(...)m2(...)
B
m1(...)m3(...)
A classe B É UMA classe A Um objeto da classe B pode ser usado em qualquer lugar onde um objeto A é esperado.
B A
Polimorfismo Chamadas polimórficas permitem simplificar a lógica
condicional dos programas
Imagine um sistema construído para trabalhar tanto em Windows quanto em Linux
::Unit1 JWindows
close(...)maximize(...)minimize(...)move(...)open(...)
J Linux
close(...)maximize(...)minimize(...)move(...)open(...)
jWin: JWindows; jLin: JLinux;
Polimorfismoprocedure TForm1.FormCreate(Sender: TObject);begin if SO='Windows' then jWin := JWindows.Create else jLin := JLinux.Create;end;
procedure TForm1.WMSysCommand(var Message: TMessage);begin if (Message.wParam = SC_MINIMIZE) then if SO='Windows' then jWin.minimize else jLin.minimize else if (Message.wParam = SC_MAXIMIZE) then if SO='Windows' then jWin.maximize else jLin.maximize else if (Message.wParam = SC_CLOSE) then
Observe a quantidade de lógica condicional!
Polimorfismo Solução Polimórfica
::Unit1
JWindows
close(...)maximize(...)minimize(...)move(...)open(...)
J anela
close(...)maximize(...)minimize(...)move(...)open(...)
J Linux
close(...)maximize(...)minimize(...)move(...)open(...)
var jan: Janela;
Polimorfismo
Observe a ausência de lógica condicional
procedure TForm1.FormCreate(Sender: TObject);begin if SO='Windows' then jan := JWindows.Create else jan := JLinux.Create;end;
procedure TForm1.WMSysCommand(var Message: TMessage);begin if (Message.wParam = SC_MINIMIZE) then jan.minimize else if (Message.wParam = SC_MAXIMIZE) then jan.maximize else if (Message.wParam = SC_CLOSE) then jan.close else if (Message.wParam = SC_MOVE) then jan.move else inherited;end;
Polimorfismo Observe ainda como seria fácil acrescentar uma janela
MOTIF para o Sun Solaris ::Unit1
J anela
close(...)maximize(...)minimize(...)move(...)open(...)
JWindows
close(...)maximize(...)minimize(...)move(...)open(...)
J Linux
close(...)maximize(...)minimize(...)move(...)open(...)
J Solaris
close(...)maximize(...)minimize(...)move(...)open(...)
Polimorfismoprocedure TForm1.FormCreate(Sender: TObject);begin if SO='Windows' then jan := JWindows.Create else if SO = 'Linux' then jan := JLinux.Create else jan := JSolaris.Create;end;
procedure TForm1.WMSysCommand(var Message: TMessage);begin if (Message.wParam = SC_MINIMIZE) then jan.minimize else if (Message.wParam = SC_MAXIMIZE) then jan.maximize else if (Message.wParam = SC_CLOSE) then jan.close else if (Message.wParam = SC_MOVE) then jan.move else inherited;end;
Nada mudou aqui!
Acrescentei mais uma linha aqui
Polimorfismo "Programação Genérica"
Trata objetos na mesma hierarquia de classes como se todos fossem objetos da superclasse
Tornam o programa extensível Facilidade para adicionar novas classes
Nesta seção: invocaremos os métodos das subclasses usando referências para a superclasse
Polimorfismo Conceito Chave
Objetos das subclasses podem ser tratados como objetos da superclasse
::Project2
A
m1(...)m2(...)
B
m1(...)m3(...)
A classe B É UMA classe A Um objeto da classe B pode ser usado em qualquer lugar onde um objeto A é esperado.
B A
Polimorfismoprogram Project2;{$APPTYPE CONSOLE}uses SysUtils;
type A = class procedure m1(); virtual; procedure m2(); end;
B = class(A) procedure m1(); override; procedure m3(); end;
Mas o que são afinal esses sufixos?
Por ora, fiquemos assim: se você não colocar o virtual na superclasse e o override nas subclasses, a brincadeira não funciona!
O par virtual/override deve ser usado apenas nos métodos que devem ser chamados de forma polimórfica
Polimorfismo - Exercício Construa uma aplicação Delphi que implemente a
seguinte relação hierárquica entre as classes Passaro e BeijaFlor
::Unit1
Passaro
voa(...)
BeijaFlor
voa(...)
Polimorfismo - Exercício Interface com o usuário
Polimorfismo - Exercício
Requisitos:
O método voa deve ser invocado de forma polimórfica:
A resposta depende do objeto instanciado...
procedure TForm1.Button1Click(Sender: TObject);
begin p.voa;end;
Polimorfismo
Polimorfismo