🧬 Padrão Prototype em Delphi

✅ Definição

💡 Cenário prático

Imagine um sistema de cadastro de produtos. Você tem um produto base e quer criar cópias dele com pequenas variações (como cor, tamanho ou preço), sem recriar tudo do zero.

📦 Estrutura de Projeto

src/
├── Interfaces/
│   └── IProduto.pas
├── Modelos/
│   └── TProduto.pas
└── App/
    └── Main.pas
  

🧪 Código Delphi

type
  IProduto = interface
    function Clone: IProduto;
    function GetDescricao: string;
    procedure SetDescricao(const Value: string);
  end;

  TProduto = class(TInterfacedObject, IProduto)
  private
    FDescricao: string;
  public
    function Clone: IProduto;
    function GetDescricao: string;
    procedure SetDescricao(const Value: string);
  end;

function TProduto.Clone: IProduto;
var
  novo: TProduto;
begin
  novo := TProduto.Create;
  novo.FDescricao := Self.FDescricao;
  Result := novo;
end;

function TProduto.GetDescricao: string;
begin
  Result := FDescricao;
end;

procedure TProduto.SetDescricao(const Value: string);
begin
  FDescricao := Value;
end;

// Uso no cliente:
procedure TForm1.Button1Click(Sender: TObject);
var
  original, copia: IProduto;
begin
  original := TProduto.Create;
  original.SetDescricao('Produto Base');

  copia := original.Clone;
  copia.SetDescricao('Produto Clonado');

  ShowMessage('Original: ' + original.GetDescricao);
  ShowMessage('Cópia: ' + copia.GetDescricao);
end;
  Copiar código

✅ Vantagens

📌 Conclusão

⬅️ Voltar à página principal