🧱 Padrão Builder em Delphi

✅ Definição

💡 Cenário prático

Imagine um sistema que gera relatórios. Alguns relatórios têm cabeçalho, corpo e rodapé; outros têm apenas corpo e rodapé. Você quer montar esses relatórios de forma flexível, sem duplicar código.

📦 Estrutura de Projeto

src/
├── Builders/
│   └── TRelatorioBuilder.pas
├── Produtos/
│   └── TRelatorio.pas
└── App/
    └── Main.pas
  

🧪 Código Delphi

type
  TRelatorio = class
  private
    FConteudo: string;
  public
    procedure Adicionar(texto: string);
    function ObterConteudo: string;
  end;

procedure TRelatorio.Adicionar(texto: string);
begin
  FConteudo := FConteudo + texto + sLineBreak;
end;

function TRelatorio.ObterConteudo: string;
begin
  Result := FConteudo;
end;

type
  TRelatorioBuilder = class
  private
    FRelatorio: TRelatorio;
  public
    constructor Create;
    procedure AddCabecalho;
    procedure AddCorpo;
    procedure AddRodape;
    function GetRelatorio: TRelatorio;
  end;

constructor TRelatorioBuilder.Create;
begin
  FRelatorio := TRelatorio.Create;
end;

procedure TRelatorioBuilder.AddCabecalho;
begin
  FRelatorio.Adicionar('--- CABEÇALHO ---');
end;

procedure TRelatorioBuilder.AddCorpo;
begin
  FRelatorio.Adicionar('Conteúdo principal do relatório.');
end;

procedure TRelatorioBuilder.AddRodape;
begin
  FRelatorio.Adicionar('--- RODAPÉ ---');
end;

function TRelatorioBuilder.GetRelatorio: TRelatorio;
begin
  Result := FRelatorio;
end;

// Uso no cliente:
procedure TForm1.Button1Click(Sender: TObject);
var
  builder: TRelatorioBuilder;
  relatorio: TRelatorio;
begin
  builder := TRelatorioBuilder.Create;
  builder.AddCabecalho;
  builder.AddCorpo;
  builder.AddRodape;
  relatorio := builder.GetRelatorio;
  ShowMessage(relatorio.ObterConteudo);
end;
  Copiar código

✅ Vantagens

📌 Conclusão

⬅️ Voltar à página principal