Funktionen als Parameter übergeben

[himitsu]

Delphi-Quellcode:

Type TMathFunc = Function(x: Real): Real;

Function f(x: Real): Real; 

Function Nullstelle(Funktion: TMathFunc): Real;
  Begin
    Result := Funktion(123.456);
  End;



x := Nullstelle(@f);

[edit]
i wünscht mir 'ne RedBox o.O