Violação do OCP (SOLD)

Solid.OCP.Violacao.pas

unit Solid.OCP.Violacao;

interface

type
  TBancoItau = class
  public
    procedure GerarBoleto;
  end;

  TBancoCaixa = class
  public
    procedure GerarBoleto;
  end;

  TBoleto = class
  public
    procedure Gerar(const ABanco: TObject);
  end;

implementation

procedure TBoleto.Gerar(const ABanco: TObject);
begin
  if not Assigned(ABanco) then
    Exit;
  if ABanco.InheritsFrom(TBancoItau) then
    TBancoItau(ABanco).GerarBoleto
  else if ABanco.InheritsFrom(TBancoCaixa) then
    TBancoCaixa(ABanco).GerarBoleto;
end;

procedure TBancoItau.GerarBoleto;
begin

end;

procedure TBancoCaixa.GerarBoleto;
begin

end;

end.