Funktionen als Parameter

[d3g]

Delphi-Quellcode:

type
  TMyFunction = function ({...}): {...};

function Example({...}): {...};

function Test(f: TMyFunction): {...};
begin
  Result := f({...});
end;

// ...

Test(@Example);

In Turbo Pascal musst du zusätzlich noch den Compilerschalter {$F+} umlegen (far-Prozeduren).