Renomeando variáveis

Mesmo com o facilitador do Delphi de extrair o método, eu mantive o primeiro modelo do método TotalLocacaoItem, onde o total de locação do item é resultado do método e sem utilizar os parâmetros do tipo var.

Agora analisando o método que foi extraído, percebemos há variáveis que podem ter seus nomes melhorados.

function TCliente.TotalLocacaoItem(Locacao: TLocacao): Double;
var
  TotalLocacaoItem: Double;
begin
    TotalLocacaoItem := 0;
    if Locacao.Filme.CodigoPreco = TFilme.Regular then
    begin
      TotalLocacaoItem := TotalLocacaoItem + 2;
      if (Locacao.DiasAluguel > 2) then
        TotalLocacaoItem := TotalLocacaoItem + ((Locacao.DiasAluguel - 2) * 1.5);
    end
    else if Locacao.Filme.CodigoPreco = TFilme.Lancamento then
    begin
      TotalLocacaoItem := TotalLocacaoItem + (Locacao.DiasAluguel * 3);
    end
    else if Locacao.Filme.CodigoPreco = TFilme.Infantil then
    begin
      TotalLocacaoItem := TotalLocacaoItem + 1.5;
      if (Locacao.DiasAluguel > 3) then
        TotalLocacaoItem := TotalLocacaoItem + ((Locacao.DiasAluguel - 3) * 1.5);
    end;
    Result := TotalLocacaoItem;
end;

Após renomear a variável, compilamos e rodamos o teste. Ok, sem erros, não estragamos nada.

Vale apena o esforço para renomear variáveis. Sim, claro. Absolutamente. O bom código deve conseguir comunicar o que ele está fazendo de forma clara e precisa, e os nomes das variáveis são as chaves para garantir um código claro. Nunca devemos ter receio em modificar o nome das variáveis com objetivo de melhorar a qualidade do código. Utilize boas ferramentas de busca e substituição para facilitar o trabalho.

Dica: Qualquer tolo pode escrever um código que o computador entenda. Bons desenvolvedores escrevem códigos que humanos conseguem compreender.

Códigos que transmitem o seu propósito são muito importantes.