DesignPatternsLazarus/einterfacejuridica.pas at main · FernandoMassa/DesignPatternsLazarus · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit eInterfaceJuridica;

{$mode ObjFPC}{$H+}
interface

uses
   Classes, SysUtils, eIntervace.Model.Interfaces;

type

   { tModelPessoaJ }

   tModelPessoaJ = class(TInterfacedObject, iPessoa)
   private
      FNome: string;
      FSobrenome: string;
      FDisplay: TEvDisplay;
      function Nome(Value: string): iPessoa;
      function Sobrenome(Value: string): iPessoa;
      function Nomecompleto: iPessoa;
      function Display(Value: TEvDisplay): iPessoa;
   public
      constructor Create;
      destructor Destroy; override;

      class function New: iPessoa;
   end;

implementation

{ tModelPessoaJ }

constructor tModelPessoaJ.Create;
begin

end;

destructor tModelPessoaJ.Destroy;
begin
   inherited Destroy;
end;

class function tModelPessoaJ.New: iPessoa;
begin
   Result := Self.Create;
end;

function tModelPessoaJ.Nome(Value: string): iPessoa;
begin
   Result := Self;
   FNome := Value;
end;

function tModelPessoaJ.Sobrenome(Value: string): iPessoa;
begin
   Result := Self;
   fSobrenome := Value;
end;

function tModelPessoaJ.Nomecompleto: iPessoa;
begin
   Result := Self;
   FDisplay(FNome + ' ' + fSobrenome + ' ilimitado');
end;

function tModelPessoaJ.Display(Value: TEvDisplay): iPessoa;
begin
   Result := Self;
   FDisplay := Value;
end;


end.