Programa��o Orientada a Objeto - Parte III

Programa��o Orientada a Objeto - Parte III

Um exemplo pr�tico em Delphi

Exemplo de POO na Linguagem Delphi (cont.)

V� para a UClasses e abaixo da declara��o da classe TPessoa crie duas classes descendentes da mesma como mostrado no c�digo:

01	type
02	TPessoa = class
03	Nome: string;
04	Fone: string;
05	procedure Avaliar;
06	constructor Create;
07	destructor Destroy;
08	end;
09
10	TAluno = class(TPessoa)
11	Turma: string;
12	procedure Avaliar;
13	constructor Create;
14	destructor Destroy;
15	end;
16
17	TProf = class(TPessoa)
18	Disciplina: string;
19	procedure Avaliar;
20	constructor Create;
21	destructor Destroy;
22	end;

Nesse momento aplicamos o conceito de Heran�a, um vez que as classes TAluno e TProf s�o descendentes da classe TPessoa. Em seguida use o Ctrl+Shift+C nas classes e entre com o c�digo em negrito:

01	implementation
02
03	uses Dialogs;
04
05	{ TPessoa }
06
07	procedure TPessoa.Avaliar;
08	begin
09	ShowMessage('Avalia��o sendo executada');
10	end;
11
12	constructor TPessoa.Create;
13	begin
14	Self.Nome := 'Novo Nome';
15	Self.Fone := 'Novo Fone';
16	end;
17
18	destructor TPessoa.Destroy;
19	begin
20	Self.Nome := '';
21	Self.Fone := '';
22	end;
23
24	{ TAluno }
25
26	procedure TAluno.Avaliar;
27	begin
28	ShowMessage('Respondendo a prova');
29	end;
30
31	constructor TAluno.Create;
32	begin
33	Self.Nome := 'Novo Aluno';
34	Self.Turma := 'Nova Turma';
35	end;
36
37	destructor TAluno.Destroy;
38	begin
39	Self.Turma := '';
40	end;
41
42	{ TProf }
43
44	procedure TProf.Avaliar;
45	begin
46	ShowMessage('Aplicando a prova');
47	end;
48
49	constructor TProf.Create;
50	begin
51	Self.Disciplina := 'Nova Disciplina';
52	end;
53
54	destructor TProf.Destroy;
55	begin
56	Self.Disciplina := '';
57	end;
58
59	end.

Novamente volte para o FPrincipal, mude o evento OnClick do TButton, compile e teste:

01	procedure TFPrincipal.Button1Click(Sender: TObject);
02	var
03	Pessoa: TPessoa;
04	Aluno: TAluno;
05	Prof: TProf;
06	begin
07	// Trabalhando com o objeto Pessoa
08	Pessoa := TPessoa.Create;
09	ShowMessage( 'Objeto Pessoa' +#13+
10	Pessoa.Nome +#13+ Pessoa.Fone );
11	Pessoa.Nome := 'Tadeu';
12	Pessoa.Fone := '1111-1111';
13	Pessoa.Avaliar;
14	ShowMessage( 'Objeto Pessoa' +#13+
15	Pessoa.Nome +#13+ Pessoa.Fone );
16	Pessoa.Destroy;
17
18	// Trabalhando com o objeto Aluno
19	Aluno := TAluno.Create;
20	ShowMessage( 'Objeto Aluno' +#13+
21	Aluno.Nome +#13+ Aluno.Fone +#13+ Aluno.Turma );
22	Aluno.Nome := 'Jos�';
23	Aluno.Fone := '2222-2222';
24	Aluno.Turma := 'Comp02';
25	Aluno.Avaliar;
26	ShowMessage( 'Objeto Aluno' +#13+
27	Aluno.Nome +#13+ Aluno.Fone +#13+ Aluno.Turma );
28	Aluno.Destroy;
29
30	// Trabalhando com o objeto Prof
31	Prof := TProf.Create;
32	ShowMessage( 'Objeto Prof' +#13+
33	Prof.Nome +#13+ Prof.Fone +#13+ Prof.Disciplina );
34	Prof.Nome := 'Maria';
35	Prof.Fone := '3333-3333';
36	Prof.Disciplina := 'Linguagem II';
37	Prof.Avaliar;
38	ShowMessage( 'Objeto Prof' +#13+
39	Prof.Nome +#13+ Prof.Fone +#13+ Prof.Disciplina );
40	Prof.Destroy;
41	end;

Note que mesmo sem termos declarado os campos Nome e Fone nas subclasses, elas herdaram esses campos da superclasse, dessa maneira a cada novo n�vel criada mais espec�fico vai ficando a subclasse. O mesmo acontece com m�todos que s�o declarados na superclasse e n�o o s�o na subclasse, mas no nosso exemplo redefinimos os m�todos da superclasse, aplicando assim o conceito de Polimorfismo. A Linguagem Delphi garante o funcionamento correto do m�todo desejado atrav�s do uso das palavras reservadas mostrada a tabela.

Palavra reservada	Uso
*static*	Os m�todos est�ticos usam a implementa��o feita na subclasse que inst�ncia o objeto. Por default todo m�todo � est�tico.
*virtual*	Embora os m�todos virtuais usem a implementa��o feita na subclasse que inst�ncia o objeto, tamb�m podem ativar a implementa��o da superclasse.
*dynamic*	Semelhante ao anterior, o que os diferencia � que no caso anterior a velocidade de acesso � otimizada, enquanto no dynamic a otimiza��o � feita em cima do c�digo. Vale ressaltar que a diretiva virtual � a forma mais comum e eficiente de implementar o polimorfismo.
*override*	Essa diretiva garante que apenas uma implementa��o exista na classe descendente, ocultando as implementa��es das classes ancestrais. A assinatura do m�todo deve ser igual em todas as classes descendentes e ancestrais, isso quer dizer que os m�todos devem ter o mesmo nome e os seus par�metros devem ter o mesmo n�mero, tipo e ordem. Essa diretiva s� pode ser usada com os m�todos virtuais e din�micos.
*overload*	Essa diretiva permite que os m�todos tenham assinaturas diferentes e n�o oculta as implementa��es das classes ancestrais, podendo ser usada com qualquer m�todo � est�tico, virtual ou din�mico.
*reintroduce*	Assim como a anterior permite que os m�todos tenham assinaturas diferentes, mas nesse caso os m�todos ancestrais s�o ocultados. Essa diretiva s� pode ser usada com os m�todos virtuais.
*abstract*	Essa diretiva � usada para determinar que o m�todo n�o ser� implementado na classe onde foi declarada. Sua implementa��o dever� ser feita nas classes descendentes. Quando definimos um m�todo como abstrato devemos ter em mente que a classe passa tamb�m a ser abstrata, n�o pode ser instanciada. Essa diretiva s� pode ser usada em m�todos virtuais e din�micos.
*final*	O uso dessa diretiva impede que classes descendentes redefinam m�todos ancestrais.
*inherited*	Essa diretiva � usada para fazer uma chamada ao m�todo ancestral e reaproveitar sua funcionalidade.

Tabela 1 � Palavras reservadas para uso com m�todos ancestrais e descendentes.

Este artigo foi cedido por http://www.cassic.com.br/

Confira outros conte�dos:

Por Tadeu Em 2010

Programa��o Orientada a Objeto - Parte III

Durante estes artigo ser� mostrado como aplicar na pr�tica os quatro conceitos b�sicos da orienta��o a objeto (Abstra��o, Encapsulamento, Heran�a, Polimorfismo)

Confira outros conte�dos: