Funktion eine Funktion übergeben

[nicodex]

Wenn der Funtionsprototyp festgelegt ist, ja.

Delphi-Quellcode:

type
  TFNFoo = procedure(AValue: Integer);

procedure FooFighters(AFoo: TFNFoo; AValue: Integer);
begin
  if Assigned(AFoo) then
    AFoo(AValue);
end;

procedure Foo(AValue: Integer);
begin
  ShowMessage('Foo: ' + IntToStr(AValue));
end;

procedure Bar();
begin
  FooFighters(Foo, 42);
end;