Métodos anônimos é um dos novos recursos trazidos pelo Delphi 2009. De início ele parece meio estranho e podemos levar um tempo para nos acostumar com a sintaxe, mas podem ser bem úteis em alguns casos como o que eu vou mostrar agora.

Quantas vezes você já não precisou escrever código para varrer um dataset do início ao fim?

DataSet.First;
while not DataSet.Eof do
begin
  //
  // Faz alguma coisa com o registro atual
  //
  DataSet.Next;
end;

Isso pode ficar ainda maior se você precisar usar DisableControls ou ainda restaurar o ponteiro do registro do DataSet após a varredura:

var
  Bookmark: TBookmark;
begin
  DataSet.DisableControls;
  try
    Bookmark := DataSet.Bookmark;
    DataSet.First;
    while not DataSet.Eof do
    begin
      //
      // Faz alguma coisa com o registro atual
      //
      DataSet.Next;
    end;
    DataSet.Bookmark := Bookmark;
  finally
    DataSet.EnableControls;
  end;
end;

Esse código todo é praticamente repetido em todas as varreduras que precisamos fazer em um DataSet. Então seria muito útil se pudéssemos extrair esse código e trocar apenas a parte que “faz alguma coisa com o registro atual”.

É aqui que os métodos anônimos nos ajudam muito.

Na unit SysUtils do Delphi, existe um tipo TProc declarado desta forma:

type
  TProc = reference to procedure;

E vamos usá-lo para criar uma procedure que recebe um dataset e um método anônimo como parâmetros:

procedure ForEach(DataSet: TDataSet; Proc: TProc);
var
  Bookmark: TBookmark;
begin
  DataSet.DisableControls;
  try
    Bookmark := DataSet.Bookmark;
    DataSet.First;
    while not DataSet.Eof do
    begin
      Proc;
      DataSet.Next;
    end;
    DataSet.Bookmark := Bookmark;
  finally
    DataSet.EnableControls;
  end;
end;

E com isso podemos chamar a procedure dessa forma:

ForEach(Table1,
  procedure
  begin
    ShowMessage(Table1NAME.Value)
  end);

Como eu disse, a sintaxe inicialmente é meio estranha, mas com o tempo você acostuma. No exemplo acima eu codifiquei uma procedure sem nome e sem parâmetros e passei para ser executado em cada registro. Eu tinha um dataset chamado Table1 no form. ShowMessage será chamado para cada registro. Além disso, ele desativa os controles conectados ao dataset e restaura o ponteiro no final.

Perceberam como isso facilita nossa vida? Então pronto, pode ir remover o monte de código duplicado que você tem em seus aplicativos.

Existe ainda uma idéia mais legal que é transformar esse recurso em um helper para a classe TDataSet, mas isso eu vou deixar para vocês como lição de casa ou para um próximo post aqui no blog.

Update: Eu já estava prevendo que alguém comentasse isso. Sim, eu sei que já era possível antes com ponteiros de funções, mas com métodos anônimos é muito mais legal e é uma forma de tirar proveito dessa novidade do Delphi 2009. Para quem ainda não tem o Delphi 2009, vale a dica do amigo Marcos Douglas, postada nos comentários.

Apenas uma nota rápida sobre Delphi 2009 após alguns dias usando em tempo integral.

Finalmente depois do Delphi 7, esta parece ser uma versão que não quebra o dia todo. Apesar de muita gente dizer que o Delphi 2007 era estável, eu pelo menos não tinha estabilidade com ele. Quebrava pelo menos duas ou três vezes por dia.

Isso não acontece com o 2009, que está bem mais estável. E não venha me dizer que isso tem algo a ver com a versão ser impar, porque o 2007 também era.

Ontem foi anunciado oficialmente o Delphi 2009, que também vinha sendo conhecido como Tiburon.  Ele já está disponível para pré-venda nos EUA, mas ainda não no Brasil, pelo menos não na loja virtual da Borland/CodeGear/Embarcadero.

Para nós usuários do Delphi uma nova versão é sempre uma esperança renovada de que a ferramenta esteja melhor e nos dando mais produtividade. Entre as novidades dessa versão, estão melhorias importantes na linguagem como Generics, que para mim é a principal novidade e o que tenho esperado no Delphi há muito tempo.

Ele tras também novos controles da VCL, como o Ribbon, que serve para criar barras de tarefas estilo Office 2007. Pra quem já utiliza os componentes da DevExpress, pouco importam essas novidades. Inclusive nós já temos o Ribbon lá há muito tempo.

Existem melhorias no DataSnap, que são muito interessantes, principalmente para quem usa o DataSnap atual puro do Delphi, que depende de COM e sempre só ouvi reclamações. Digo DataSnap atual puro, pois eu utilizo o DataSnap com RemObjects para camada de comunicação, então nunca dependi do COM e nunca passei as dificuldades que isso trás.

E claro, Unicode, que praticamente nenhum desenvolvedor brasilieiro precisa, mas que é importante para que a ferramenta atender o maior mercado possível suportando qualquer conjunto de caracteres.

Junto as novidades, sempre vem um pouco de melhoria na estabilidade e performance da IDE. Isso eu diria que pra mim é um dos itens mais importantes. O meu Delphi 2007 por exemplo, ele dá pau pelo menos entre duas a três vezes por dia. São aqueles erros inexplicáveis que te obrigam a fechar a IDE e recomeçar o trabalho.

Vale a pena atualizar seus Delphi para o 2009? Na minha opinião vale. Eu com certeza atualizarei o quanto antes. Meus principais motivos são:

• Generics vai permitir que eu elimine muito código.
• IDE mais rápida e estável, reflete em maior produtividade do desenvolvedor.
• Suporte ao produto. Não podemos negar que a CodeGear está se esforçando de verdade para melhorar o produto e parece que está cada vez mais na direção certa. Pare e pense qual seria o tamanho do prejuízo se você tivesse que migrar seus projetos para uma outra plataforma no caso do Delphi ser abandonado. Pensou? Pois é, você vai ver que o custo do Delphi é insignificante perto desse custo. Então temos que suportar o produto, comprando as licenças.

Mais informações sobre o anúncio:

• TechTips
• Nick Hodges
• Press Release Oficial

O Cesar Romero voltou a blogar com muita vontade. Vale a pena acompanhar. Bastante conteúdo útil para desenvolvedores Delphi e Firebird.