Anonyme methode als Parameter übergeben

[Sir Rufo]

Du kannst alles in eine Standard Anonyme Methode wrappen:

Delphi-Quellcode:

procedure DoSomething( AProc: TProc);
begin
  AProc();
end;

procedure Foo;
begin

  DoSomething(
    procedure
    var
      c: Integer;
    begin
      Add(4,5,c);
    end );

  DoSomething(
    procedure
    begin
      Euler();
    end );

end;