Refatoração é o processo de alterar um sistema de software de modo que não mude o comportamento externo do código, mas melhore sua estrutura interna. No contexto do Código Limpo, a refatoração não é um evento isolado ou uma “parada para manutenção”, mas um hábito contínuo conhecido como a Regra do Escoteiro: “Deixe o código sempre um pouco mais limpo do que você o encontrou”.

No Delphi 13 (Athens), refatorar código legado é essencial para reduzir a dívida técnica e permitir que o sistema continue evoluindo sem colapsar sob sua própria complexidade.

1. O Dilema do Legado: Código sem Testes é Código Ruim

A definição mais pragmática de código legado é: “código sem testes”. Sem uma rede de segurança, qualquer refatoração é um risco.

• A Estratégia: Antes de começar a mover blocos de código, tente isolar a lógica e criar um teste de integração básico. Se a lógica estiver muito acoplada à UI (como vimos no Artigo 07), sua primeira tarefa de refatoração será a Extração de Método.

2. Técnicas Práticas de Refatoração no Delphi

O IDE do Delphi 13 oferece automatizações que minimizam o erro humano durante a limpeza.

A. Extração de Método (Extract Method)

É a técnica mais poderosa. Se você encontrar um evento de botão com 200 linhas, identifique blocos lógicos (ex: validação, gravação, log) e use Ctrl + Shift + M para transformá-los em métodos privados.

• Resultado: O método original passa a ler-se como um índice, e os detalhes de implementação ficam escondidos em métodos menores e coesos.

B. Substituir Números Mágicos por Constantes/Enums

Como vimos no Artigo 05, procure por literais no código. Se encontrar um if Tipo = 1 then, descubra o que o 1 representa e transforme-o em um TStatus.Ativo.

C. Decompor Condicionais Complexas

Se você encontrar um if com múltiplas condições AND/OR, extraia essa lógica para uma função booleana com nome semântico.

• Dirty: if (Pedido.Valor > 1000) and (Cliente.CreditoOK) and not (Pedido.Blacklisted) then
• Clean: if Pedido.ElegivelParaDesconto(Cliente) then

3. Lidando com Dependências Circulares

Um dos maiores males de projetos Delphi antigos é o “Uses Mútuo” (Unit A usa Unit B na seção interface, e vice-versa). Isso impede o isolamento de classes e aumenta o tempo de compilação.

• Refatoração: Mova as referências da seção interface para a seção implementation sempre que possível. Se o acoplamento for muito forte, introduza uma Interface em uma terceira Unit para que ambas as classes dependam da abstração e não uma da outra.

4. O Custo da “Grande Reescrita”

Um erro comum de Clean Code é achar que a solução é apagar tudo e começar do zero. A refatoração deve ser incremental.

1. Identifique o “ponto de dor” (o código que dá mais bug ou que muda com frequência).
2. Refatore apenas essa parte.
3. Garanta que o sistema continua funcionando.
4. Repita.

5. Nuances Técnicas no Delphi 13: LSP e Generics

Ao refatorar, aproveite os recursos modernos do Delphi 13. Substitua TList e TObjectList antigos (que exigiam typecasting manual) por TList<T> (Generics). Isso elimina códigos de conversão de tipos desnecessários e torna o código muito mais limpo e seguro em tempo de compilação.

Referências

FOWLER, Martin. Refatoração: Aperfeiçoando o design de códigos existentes. 2. ed. São Paulo: Novatec, 2019.

MARTIN, Robert C. Código Limpo: Habilidades práticas do Agile Software. 1. ed. Rio de Janeiro: Alta Books, 2009.

TEIXEIRA, Marcello. Delphi High Performance: Build fast Delphi applications using concurrency, parallel programming and memory management. 1. ed. Birmingham: Packt Publishing, 2018.