viniciussanchez

unit Solid.DIP.Refatoracao;

interface

type
  TFirebirdConnection = class
  public
    procedure Connect;
  end;

viniciussanchez

unit Solid.DIP.Violacao;

interface

type
  TFirebirdConnection = class
  public
    procedure Connect;
  end;

viniciussanchez

unit Solid.ISP.Correcao;

interface

type
  IAves = interface
    ['{1F0490B4-0D6D-4BDE-A28A-8E1E2E717874}']
    procedure BeberAgua;
    procedure EmitirSom;
  end;

viniciussanchez

unit Solid.ISP.Violacao;

interface

type
  IAves = interface
    ['{1F0490B4-0D6D-4BDE-A28A-8E1E2E717874}']
    procedure BeberAgua;
    procedure EmitirSom;
    procedure Voar;

viniciussanchez

// Função que espera um objeto do tipo TClassePai como parâmetro
function GetMensagemOk(const AObjeto: TClassePai): string;
begin
  Result := 'Ok';
end;

var
  LClassePai: TClassePai;
  LClasseDerivada: TCLasseDerivada;
begin

viniciussanchez

unit Solid.LSP;

interface

type
  TClassePai = class
  public
    function GetNome: string;
  end;

viniciussanchez

unit Solid.OCP.Boleto;

interface

type
  IBanco = interface
    ['{71EB60CC-91C0-40E3-9D58-9F2CC46E84A9}']
    procedure GerarBoleto;
  end;

viniciussanchez

unit Solid.OCP.Violacao;

interface

type
  TBancoItau = class
  public
    procedure GerarBoleto;
  end;

viniciussanchez

unit Solid.SRP.Logger;

interface

type
  TLogger = class
  public
    procedure Log;
  end;

viniciussanchez

unit Solid.SRP.MailService;

interface

type
  TMailService = class
  public
    procedure SendMail;
  end;