Olhando o Mundo OO

[Marcelo Fernandes]

Imagina que vc tenha que desenvolver um sistema para o BOPE imagina as
class;

unit PoliciaEspecial;

interface
{
* O Bope foi criado para atuar quando a policia perde o controle
* E no rio de janeiro isso acontece com bastante frequencia
*/
}


type
TBope = class(TObject)
private
FNome: string;
FqtdeVitimas: Integer;
public
procedure ondeTaOBaiano(value: Estudante); overload;
procedure ondeTaOBaiano(value: Traficante); overload;
procedure encontreiOBaiano(var value: Baiano);
constructor create(value: string);
end;

TTreinamento = class(TObject)
private
Capitao: TBope;
public
procedure missao(value: CapitaoNascimento);
constructor create;
end;

implementation

{ Bope }

constructor Bope.create;
begin
FNome := value;
FqtdeVitimas:=1;
end;

procedure Bope.encontreiOBaiano(var value: Baiano);
begin
value.naCaraNaoQueEhPraNaoEstragarVelorio();
end;

procedure Bope.ondeTaOBaiano(value: Estudante);
begin
value.sabeVoarEstudante();
end;

procedure Bope.ondeTaOBaiano(value: Traficante);
begin
value.levaSacoNaCabeca();
end;

{ Treinamento }

constructor Treinamento.create;
begin
Capitao := TBope.create('01'); //Capitao Nascimento
//de cada 100 policiais que fazem o curso do Bope,
//so se formam 5, e eu, quando me formei parceiro,
//eramos apenas 3.
Turma.tentaFazerCursoBopeCom(capitao);
while aluno.count >= 3 do
begin
aluno.pedePraSair();
if (aluno is Cafetao) then
begin
capitao.say('Pede pra sair!');
capitao.say('Seu Lugar Eh Com Puta!');
raise(PolicialCorruptoEncontrado pce)
end
else if (aluno is PorraLoka) then
begin
capitao.say('Tira essa farda preta!');
capitao.say('Voce nao eh cavera. voce eh MULEQUE!');
raise(PolicialFracoEncontrado pfe)
end
else if aluno.isXerife then
begin
aluno.desiste()
raise(PolicialSemABandoleiraNessaAlturadoCampeonato e)
end
end

end;

procedure Treinamento.missao(value: CapitaoNascimento);
begin
value.sentaOdedoNessaPorra();
end;

end.



Original : http://jf.eti.br/aprendendo-java-com-o-bope/

[Daniel Bastos]

Ja ví em java. Acho que fizeram um fork pra pascal :)
mas é muito show. hauhauhauha

2009/1/26 Marcelo Fernandes <marcelofer...@gmail.com>

--
Abs
Daniel A. Bastos

[mrbar2000]

Filhos da P$%@ que meteram o coitado do baiano ali, coitado do cara,
só trabalha enquanto os ladrões vem se divertir aqui vindos de outras
partes do pais e do exterior e ainda temos que fica lendo este tipo de
coisa, to quase moderando este tópico :D

[Silvio Clécio]

Vc's são phod@!!! :D

Tá parecendo isso:
http://www.4shared.com/file/27431990/6ce664e3/oscila_fazendo_merda.html?s=1

2009/1/26 Daniel Bastos <danb...@gmail.com>

--
[]'s, Silvio Clécio
---
Linux User: #481900
Skype: silvioprog
ICQ: 432519902
E-mail, Y! Messenger: silvi...@yahoo.com.br
Gmail, GTalk: silvi...@gmail.com
Hotmail, MSN: silvi...@hotmail.com
BlogSpot: http://silvioclecio.blogspot.com/
BlogSite: http://silvioprog.blogspot.com/
°oO| Seja livre, use Linux! |Oo°

[Marcelo Fernandes]

Foi baseado no ex: java...

mais da para mostrar como olha uma situação OO e criar suas class....

sorry MrBar

On 26 jan, 23:48, Marcelo Fernandes <marcelofernandes....@gmail.com>
wrote:

[Marcos George]

Marcelo, parece q ele num gostou muito pq ele tbm é baiano!!! kkkkkkkkkkk

Att
Marcos George




> Date: Tue, 27 Jan 2009 07:11:38 -0800
> Subject: [Infra 545] Re: Olhando o Mundo OO
> From: marcelofer...@gmail.com
> To: infra...@googlegroups.com