TechTips

Tipos Procedurais é um recurso interessante da linguagem Delphi que permite armazenar métodos, funções e procedimentos em variáveis e manipulá-los normalmente, passando como parâmetros, e chamando a função quando for necessário.

A sintaxe é simples:

type
  TProcedimento = procedure;
  TFuncao = function:string;
  TFuncaoComParametro = function(Param: Integer):string;
  TMetodo = procedure of object;

As duas primeiras declarações definem um tipo que armazena um procedimento e uma função sem parâmetros, respectivamente. A terceira mostra como especificar parâmetros. A ultima declaração mostra como armazenar um método de uma classe, como TForm1.MeuMetodo, por exemplo. A partir daí, basta utilizar o método normalmente:

program Procedurais;

{$APPTYPE CONSOLE}

type
  TFuncao = function(Nome: string):string;

procedure ChamaProcedimento(Proc: TFuncao);
begin
  if Assigned(Proc) then
    WriteLn(Proc('teste'));
end;

function Duplica(Nome: string): string;
begin
  Result := Nome + Nome;
end;

function Triplica(Nome: string): string;
begin
  Result := Nome + Nome + Nome;
end;

begin
  ChamaProcedimento(Duplica);
  ChamaProcedimento(Triplica);
  ReadLn;
end.

Veja no exemplo que ChamaProcedimento chama a função que ele recebe por parâmetro e escreve no console o valor retornado. O programa principal chama esse procedimento passando as duas funções ali implementadas.

Vale lembrar que esses tipos são type-safe, ou seja, o compilador verifica se o procedimento que você está passando corresponde exatamente ao esperado, ou seja, possui os mesmos parâmetros, o mesmo tipo de retorno, a mesma convenção de chamada, e assim por diante.

Se isso faz lembrar os eventos de componentes da VCL, é porque é exatamente este o mecanismo usado.