Inclusão da Interface IPrototype

Author: AndreLuisCelestino

Prototype-AndreCelestino/uReuniao.pas Prototype-AndreCelestino/Pattern.ConcretePrototype.pas

@@ -1,12 +1,13 @@
-unit uReuniao;
+unit Pattern.ConcretePrototype;
 
 interface
 
 uses
-  SysUtils, Controls, Graphics;
+  SysUtils, Controls, Graphics, Pattern.Prototype;
 
 type
-  TReuniao = class
+  { Concrete Prototype }
+  TConcretePrototype = class(TInterfacedObject, IPrototype)
   private
     FNome: string;
     FData: TDate;
@@ -17,7 +18,7 @@   TReuniao = class
     constructor Create;
 
     // método principal do Prototype
-    function Clonar: TReuniao;
+    function Clonar: IPrototype;
 
     property Nome: string read FNome write FNome;
     property Data: TDate read FData write FData;
@@ -30,12 +31,12 @@ implementation
 
 { TReuniao }
 
-function TReuniao.Clonar: TReuniao;
+function TConcretePrototype.Clonar: IPrototype;
 var
-  NovaReuniao: TReuniao;
+  NovaReuniao: TConcretePrototype;
 begin
   // cria um novo objeto
-  NovaReuniao := TReuniao.Create;
+  NovaReuniao := TConcretePrototype.Create;
 
   // copia todas as propriedades do objeto atual,
   // atribuindo-as ao clone
@@ -49,7 +50,7 @@ function TReuniao.Clonar: TReuniao;
   result := NovaReuniao;
 end;
 
-constructor TReuniao.Create;
+constructor TConcretePrototype.Create;
 begin
   FData := Date;
   FHora := Time;

Prototype-AndreCelestino/Pattern.Prototype.pas

@@ -0,0 +1,14 @@
+unit Pattern.Prototype;
+
+interface
+
+type
+  { Prototype }
+  IPrototype = interface
+    // método principal do Prototype
+    function Clonar: IPrototype;
+  end;
+
+implementation
+
+end.

Prototype-AndreCelestino/Prototype.dpr

@@ -1,15 +1,16 @@
-program Prototype;
+program Prototype;
 
 uses
   Forms,
-  uTela in 'uTela.pas' {fTela},
-  uReuniao in 'uReuniao.pas';
+  View.Formulario in 'View.Formulario.pas' {fFormulario},
+  Pattern.Prototype in 'Pattern.Prototype.pas',
+  Pattern.ConcretePrototype in 'Pattern.ConcretePrototype.pas';
 
 {$R *.res}
 
 begin
   Application.Initialize;
-  Application.Title := 'Exemplo de Prototype';
-  Application.CreateForm(TfTela, fTela);
+  Application.Title := 'Exemplo de Prototype - André Celestino';
+  Application.CreateForm(TfFormulario, fFormulario);
   Application.Run;
 end.