🔒 Padrão Singleton em Delphi

✅ Definição

Singleton é um padrão de projeto criacional que garante que uma classe tenha apenas uma instância e fornece um ponto global de acesso a ela. É útil para gerenciar configurações, conexões ou recursos compartilhados.

💡 Cenário prático

Imagine que você está desenvolvendo um sistema Delphi que precisa acessar configurações globais (idioma, tema, permissões). Essas configurações devem ser carregadas uma única vez e acessadas por todo o sistema.

O Singleton garante que essas configurações sejam instanciadas apenas uma vez, evitando duplicidade e inconsistência.

📦 Estrutura de Projeto


src/
├── Config/
│   └── TConfig.pas
├── App/
│   └── Main.pas

🧪 Código Delphi


type
  TConfig = class
  private
    class var FInstance: TConfig;
    constructor Create;
  public
    class function GetInstance: TConfig;
    procedure LoadSettings;
  end;

constructor TConfig.Create;
begin
  // Inicialização privada
end;

class function TConfig.GetInstance: TConfig;
begin
  if FInstance = nil then
    FInstance := TConfig.Create;
  Result := FInstance;
end;

procedure TConfig.LoadSettings;
begin
  ShowMessage('Configurações carregadas!');
end;

// Uso no cliente:
procedure TForm1.Button1Click(Sender: TObject);
begin
  TConfig.GetInstance.LoadSettings;
end;

✅ Vantagens

🔁 Evita múltiplas instâncias desnecessárias
🧩 Centraliza o acesso a dados globais
🔒 Garante consistência e controle

📌 Conclusão

Singleton é como um gerente de configurações: existe apenas um, e todos os módulos do sistema consultam ele. Simples, seguro e eficiente.

🧸 Exemplo Didático: Gerente de Brinquedos

Este exemplo mostra uma loja de brinquedos com um único gerente. Cada botão no formulário chama o mesmo gerente para exibir um brinquedo diferente, demonstrando o padrão Singleton de forma lúdica e acessível.

📁 Estrutura de Projeto


src/
├── Config/
│   └── uBrinquedoManager.pas
├── App/
│   └── LojaForm.pas

🧪 Código Delphi


type
  TBrinquedoManager = class
  private
    class var FInstance: TBrinquedoManager;
    constructor Create;
  public
    class function GetInstance: TBrinquedoManager;
    procedure MostrarBrinquedo(const Nome: string);
  end;

constructor TBrinquedoManager.Create;
begin
  // Inicialização privada
end;

class function TBrinquedoManager.GetInstance: TBrinquedoManager;
begin
  if FInstance = nil then
    FInstance := TBrinquedoManager.Create;
  Result := FInstance;
end;

procedure TBrinquedoManager.MostrarBrinquedo(const Nome: string);
begin
  ShowMessage('Brinquedo disponível: ' + Nome);
end;

// Uso no cliente:
procedure TLojaForm.btnCarrinhoClick(Sender: TObject);
begin
  TBrinquedoManager.GetInstance.MostrarBrinquedo('Carrinho de Corrida');
end;

🎯 Aplicação

Ao clicar nos botões "Carrinho" ou "Boneca", o mesmo gerente é chamado para mostrar o brinquedo. Isso reforça o conceito de instância única, de forma divertida e intuitiva.

🔙 Quer retornar ao início do site?

🏠 Ir para Página Principal