Métodos anônimos em Delphi

Métodos anônimos em Delphi (Anonymous Methods in Delphi)

Métodos anônimos em Delphi são procedimentos (procedures) ou funções (functions) que
não possuem identificadores, ou seja, que não possuam nomes, ou ainda, que não são declarados.

Basicamente, são um bloco de código em forme de procedures ou functions que voc~e pode atribuir a
uma variável e chamar de diversos locais.

Para um melhor entendimento vamos analisar o seguinte código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

program Project1;
 
{$APPTYPE CONSOLE}
 
procedure PrintString(aText: string);
begin
 Writeln(aText);
end;
 
begin
  PrintString('Hello world');
  PrintString('Good bye');
  Readln;
end.

É um programa em modo console extremamente simples, onde há um método “PrintString”
que é chamado duas vezes durante a execução do programa.

Ok, mas como ficará este mesmo exemplo se utilizarmos métodos anônimos? vamos ao código!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program Project1;
 
{$APPTYPE CONSOLE}
 
type
  TMyAnonymousProcedureType = reference to procedure(aText: string);
 
var
  A: TMyAnonymousProcedureType;
 
begin
  A:= procedure(aText: string) //No semicolon here
                begin
                  Writeln(aText);
                end;
  A('Hello world');
  A('Good bye');
  Readln;
end.

Veja que a variável “A” é um procedimento que pode ser chamado de qualquer local.

Com este exemplo, podemos ter noção de como implementar métodos anônimos em Delphi,
assim é possível deixar a implementação de código mais elegante em muitos casos.

Dúvidas ou sugestões? Deixe o seu comentário!

Fonte de Referência: http://www.yanniel.info/2011/08/anonymous-methods-in-delphi.html