A manutenção de sistemas legados em Delphi (VCL) é um desafio comum no mercado brasileiro. Décadas de desenvolvimento muitas vezes resultam em “God Classes”, acoplamento excessivo e uso ineficiente de memória. Este artigo explora como utilizar Grandes Modelos de Linguagem (LLMs) para refatorar código espaguete, otimizar manipulação de strings e implementar Injeção de Dependência (DI), transformando código arcaico em arquiteturas limpas e testáveis.

Neste artigo vou abordar algumas técnicas de prompt e o uso extensivo da IA para modernização do seu código legado, transformando o velho no novo de forma simples e descomplicada.

O Desafio do Legado e o Papel da IA

Aplicações VCL construídas entre os anos 90 e 2000 frequentemente sofrem de dívida técnica. A lógica de negócios reside dentro de manipuladores de eventos de UI (Button1Click), variáveis globais controlam o estado da aplicação e a manipulação de strings é custosa.

A IA Generativa não serve apenas para escrever código novo; ela atua como um assistente de refatoração semântica. Diferente de ferramentas estáticas (como o Refactor da IDE), a IA entende a intenção do código, permitindo transformações arquiteturais complexas.

De Espaguete para SOLID: Extração de Classes com IA

O padrão mais comum em VCL legado é a lógica de negócios misturada com a lógica de interface (UI).

O Cenário (Código Espaguete)

Um evento TForm1.btnProcessarClick com 800 linhas que valida dados, conecta ao banco, itera sobre um TDataSet, calcula impostos e atualiza labels.

A Estratégia com IA

O objetivo é extrair a lógica para uma classe POCO (Plain Old CLR/Class Object) ou um Serviço.

Prompt Sugerido para a IA:

“Analise o código Delphi abaixo (Button1Click). Extraia a lógica de cálculo de impostos e regras de negócio para uma classe isolada chamada TCalculadoraFiscal. A classe não deve ter dependência de TForm, TEdit ou TLabel. Retorne a interface da nova classe e o código refatorado.”

Resultado da Modernização

A IA sugere a separação de responsabilidades. O formulário passa a apenas orquestrar a entrada e saída.

// Antes: Lógica acoplada no Form
procedure TForm1.btnProcessarClick(Sender: TObject);
begin
  // 500 linhas de validação e cálculo misturados com UI
  if EditValor.Text = '' then ...
end;

// Depois: Lógica encapsulada
type
  TCalculadoraFiscal = class
  public
    function CalcularImposto(Valor: Currency): Currency;
  end;

procedure TForm1.btnProcessarClick(Sender: TObject);
var
  Calc: TCalculadoraFiscal;
begin
  Calc := TCalculadoraFiscal.Create;
  try
    lblResultado.Caption := CurrToStr(Calc.CalcularImposto(StrToCurr(EditValor.Text)));
  finally
    Calc.Free;
  end;
end;

Otimização de Strings: Substituindo Rotinas Antigas por TStringBuilder

Em versões antigas do Delphi/Pascal, a concatenação de strings usando o operador + em loops grandes é desastrosa para a performance e fragmentação de memória, pois strings são imutáveis (ou se comportam como tal na realocação).

O Cenário

Concatenação massiva para gerar arquivos CSV, XML manuais ou logs.

// Código Legado Ineficiente
ResultStr := '';
for i := 0 to 10000 do
  ResultStr := ResultStr + 'Linha ' + IntToStr(i) + #13#10; 
  // Complexidade O(n^2) devido à realocação contínua de memória

A Estratégia com IA

Utilizar a IA para identificar padrões de concatenação em loops e sugerir a implementação de System.SysUtils.TStringBuilder (disponível desde o Delphi 2009).

Prompt Sugerido:

“Refatore este loop Pascal para usar o padrão TStringBuilder fluente. Substitua rotinas legadas como Copy, Delete ou concatenação + por métodos do StringBuilder para otimizar a performance.”

Validação Técnica

A utilização de TStringBuilder reduz a complexidade de tempo para $O(n)$ amortizado.

// Modernizado com TStringBuilder
var
  sb: TStringBuilder;
begin
  sb := TStringBuilder.Create;
  try
    for i := 0 to 10000 do
      sb.Append('Linha ').Append(i).AppendLine;
    Result := sb.ToString;
  finally
    sb.Free;
  end;
end;

De Globais para Injeção de Dependência (DI)

O VCL legado abusa de variáveis globais (ex: var UserAtual: TUser declarado na interface de uma unit) e DataModules instanciados automaticamente (Application.CreateForm(TdmDados, dmDados)). Isso torna o teste unitário impossível.

O Cenário

Uma classe acessa diretamente dmDados.QueryClientes ou VariaveisGlobais.UsuarioLogado.

A Estratégia com IA

Pedir à IA para identificar dependências ocultas e propor a injeção via construtor.

Prompt Sugerido:

“Analise a classe TProcessadorPedido. Identifique todas as referências a variáveis globais e DataModules. Refatore a classe para receber essas dependências no construtor (Constructor Injection), preferencialmente criando Interfaces para desacoplamento.”

Resultado da Modernização

// Antes: Acoplamento forte
procedure TProcessadorPedido.Processar;
begin
  if VariaveisGlobais.UsuarioLogado.Nivel > 5 then // Dependência Oculta
    dmDados.QryPedido.ExecSQL; // Dependência Global
end;

// Depois: Injeção de Dependência
type
  IUsuarioService = interface
    function GetNivelUsuario: Integer;
  end;

  IRepositorioPedido = interface
    procedure ExecutarPedido;
  end;

  TProcessadorPedido = class
  private
    FUsuarioService: IUsuarioService;
    FRepositorio: IRepositorioPedido;
  public
    // Dependências explícitas
    constructor Create(UsuarioService: IUsuarioService; Repositorio: IRepositorioPedido);
    procedure Processar;
  end;

Princípios Técnicos

1. Refatoração de Classes: A extração de lógica de UI para classes de domínio adere ao SRP (Single Responsibility Principle). Isso é validado por métricas de manutenibilidade (diminuição da Complexidade Ciclomática).
2. TStringBuilder: Testes de benchmark em Delphi demonstram que TStringBuilder é superior à concatenação simples para operações acima de algumas dezenas de iterações, evitando a fragmentação do heap.
3. Injeção de Dependência: A mudança de globais para DI é o padrão da indústria para tornar sistemas testáveis. Em Delphi, isso prepara o terreno para uso de frameworks como Spring4D.

Riscos e Alucinações da IA (Atenção)

Ao usar IA (ChatGPT, Claude, Copilot) para Delphi, ocorrem alucinações comuns que o desenvolvedor deve validar:

• Sintaxe Híbrida: A IA pode tentar usar sintaxe de C# (var i = 0) em versões antigas do Delphi que não suportam inferência de tipo inline.
• Bibliotecas Inexistentes: A IA pode sugerir bibliotecas padrão do .NET (System.IO.Path.Combine) em vez das equivalentes em Delphi (TPath.Combine em System.IOUtils).
• Gerenciamento de Memória: A IA treinada em linguagens com Garbage Collector (Java/C#) frequentemente esquece de adicionar blocos try..finally para liberar objetos (.Free) no Delphi. Sempre verifique os vazamentos de memória.

Referências Bibliográficas

1. Feathers, Michael.Working Effectively with Legacy Code. Prentice Hall, 2004.
   • A bíblia sobre como quebrar dependências em código legado antes de refatorar. Essencial para a seção de Injeção de Dependência.
2. Fowler, Martin.Refactoring: Improving the Design of Existing Code. Addison-Wesley, 2nd Edition, 2018.
   • Fonte primária dos padrões de “Extract Class” e “Move Method” utilizados na seção 2.
3. Cantù, Marco.Object Pascal Handbook. (Versões atualizadas para Delphi moderno).
   • Referência técnica para o uso correto de TStringBuilder e recursos modernos da linguagem Delphi (Generics, Anonymous Methods) que a IA deve ser instruída a usar.
4. Nick Hodges.Dependency Injection in Delphi.
   • Valida a abordagem de migração de DataModules globais para injeção de interfaces no ecossistema Delphi.