Sugestão para viabilizar o uso de procedure anônima no método Listen (com FPC)

[edsontmarques]

Sugestão para viabilizar o uso de procedure anônima no método Listen (com FPC)

[viniciussanchez]

Boa tarde... poderia dar um exemplo de uso? E qual o erro você tem hoje?
Porque na versão atual, já é possível o uso, se eu entendi bem:

[edsontmarques]

Boa tarde!
A ideia seria viabilizar a seguinte situação:

program Teste;

{$IFDEF FPC}
  {$MODE DELPHI}{$H+}
  {$MODESWITCH ANONYMOUSFUNCTIONS+}
{$ENDIF}

interface

implementation

uses
  SysUtils;
  
begin
  ...
  THorse.Listen(9000,
    procedure
    begin
      WriteLn(Format('Server active on port %d', [THorse.Port]));
    end);
end;        

end.

Com o que sugeri (que foi o que eu implementei aqui no meu checkout local do Horse (trunk)), eu consigo usar procedure anônima direto dentro do Listen, o que é possível com o FPC 3.2.2.

[viniciussanchez]

Assim, legal... manda um Pull request entao pra gente, o que acha? dai seu nome aparece como contribuidor tambem do projeto

[edsontmarques]

Seria uma honra!
Vou preparar aqui!

[viniciussanchez]

Vlw