Programação Orientada a Objeto - Parte IV

Natal DevMedia: Assine hoje e ganhe 3 meses gr�tis

Programa��o Orientada a Objeto - Parte IV

Um exemplo pr�tico em Delphi

Exemplo de POO na Linguagem Delphi (cont.)

Vamos tornar os m�todos da nossa superclasse em m�todos virtuais:

01	unit UClasses;
02
03	interface
04
05	type
06	TPessoa = class
07	Nome: string;
08	Fone: string;
09	procedure Avaliar; virtual;
10	constructor Create; virtual;
11	destructor Destroy; virtual;
12	end;
13
14	TAluno = class(TPessoa)
15	Turma: string;
16	procedure Avaliar; override;
17	constructor Create; override;
18	destructor Destroy; override;
19	end;
20
21	TProf = class(TPessoa)
22	Disciplina: string;
23	procedure Avaliar; override;
24	constructor Create; override;
25	destructor Destroy; override;
26	end;
27
28	implementation
29
30	uses Dialogs;
31
32	{ TPessoa }
33
34	procedure TPessoa.Avaliar;
35	begin
36	ShowMessage('Avalia��o sendo executada');
37	end;
38
39	constructor TPessoa.Create;
40	begin
41	Self.Nome := 'Novo Nome';
42	Self.Fone := 'Novo Fone';
43	end;
44
45	destructor TPessoa.Destroy;
46	begin
47	Self.Nome := '';
48	Self.Fone := '';
49	end;
50
51	{ TAluno }
52
53	procedure TAluno.Avaliar;
54	begin
55	inherited;
56	ShowMessage('Respondendo a prova');
57	end;
58
59	constructor TAluno.Create;
60	begin
61	inherited;
62	Self.Turma := 'Nova Turma';
63	end;
64
65	destructor TAluno.Destroy;
66	begin
67	Self.Turma := '';
68	inherited;
69	end;
70
71	{ TProf }
72
73	procedure TProf.Avaliar;
74	begin
75	inherited;
76	ShowMessage('Aplicando a prova');
77	end;
78
79	constructor TProf.Create;
80	begin
81	inherited;
82	Self.Disciplina := 'Nova Disciplina';
83	end;
84
85	destructor TProf.Destroy;
86	begin
87	Self.Disciplina := '';
88	inherited;
89	end;
90
91	end.

Vemos uma das vantagens da POO, mudamos as classes mas n�o precisamos mudar nada no FPrincipal, para as altera��es entrarem em vigor apenas compile e teste.

O c�digo a seguir transforma a superclasse TPessoa em uma classe abstrata, obrigando as subclasses TAluno e TProf a implementar o m�todo abstrato:

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

Pressione Crtl+Shift+C dentro das classes TAluno e TProf, em seguida entre com c�digo mostrado:

01	procedure TAluno.Lancar_Nota;
02	var
03	Nota: string;
04	begin
05	InputQuery('Nota', 'Qual foi a nota?', Nota);
06	end;
07
08	procedure TProf.Lancar_Nota;
09	var
10	Aluno, Nota: string;
11	begin
12	InputQuery('Aluno', 'Nome do aluno?', Aluno);
13	InputQuery('Nota', 'Qual foi a nota do aluno ' +
14	Aluno + '?', Nota);
15	end;

Mude o evento OnClick do TButton que est� FPrincipal, compile, teste e verifique o erro que d�:

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	Pessoa.Lancar_Nota;
15	ShowMessage( 'Objeto Pessoa' +#13+
16	Pessoa.Nome +#13+ Pessoa.Fone );
17	Pessoa.Destroy;
18
19	// Trabalhando com o objeto Aluno
20	Aluno := TAluno.Create;
21	ShowMessage( 'Objeto Aluno' +#13+
22	Aluno.Nome +#13+ Aluno.Fone +#13+ Aluno.Turma );
23	Aluno.Nome := 'Jos�';
24	Aluno.Fone := '2222-2222';
25	Aluno.Turma := 'Comp02';
26	Aluno.Avaliar;
27	Aluno.Lancar_Nota;
28	ShowMessage( 'Objeto Aluno' +#13+
29	Aluno.Nome +#13+ Aluno.Fone +#13+ Aluno.Turma );
30	Aluno.Destroy;
31
32	// Trabalhando com o objeto Prof
33	Prof := TProf.Create;
34	ShowMessage( 'Objeto Prof' +#13+
35	Prof.Nome +#13+ Prof.Fone +#13+ Prof.Disciplina );
36	Prof.Nome := 'Maria';
37	Prof.Fone := '3333-3333';
38	Prof.Disciplina := 'Linguagem II';
39	Prof.Avaliar;
40	Prof.Lancar_Nota;
41	ShowMessage( 'Objeto Prof' +#13+
42	Prof.Nome +#13+ Prof.Fone +#13+ Prof.Disciplina );
43	Prof.Destroy;
44	end;

A classe TPessoa n�o poderia ter sido instanciado pois ela � uma classe abstrata, mas caso se deseje utiliz�-la e desprezar a regra de n�o poder instanciar uma classe abstrata, basta comentar a linha 14 com a barra dupla.

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