Funktionen als Parameter übergeben

[Alexander Roth]

Entschuldigung dass ich so spät antworte.

Also ein bisschen erweiterte Situation:
Ich habe die Klassen

Delphi-Quellcode:

    TSonnenstandsFunktion=function(BG,LG:real; time:real;  day,month:byte; year:integer):real;

    TSonne = class
    public
      function getalpha(BG,LG:real; time:real;  day,month:byte; year:integer):real;
      function getbeta(BG,LG:real; time:real;  day,month:byte; year:integer):real;

und die Funktion

Delphi-Quellcode:

function NullStelle(Funktion:TSonnenstandsFunktion):real;
begin
  result:=Funktion(ds.BG,ds.LG,ds.hour,ds.day,ds.month,ds.year);
end;

die ich zu Testzwecken nur mit beispielwerten füttere anstadt die Nullstelle auszurechnen.

Die Variable:
  Sonne:TSonne; Wie übergebe ich die Methode getalpha oder getbeta der Variable Sonne an die Funktion Nullstelle?
So klappt es natürlich nicht:
  showmessage(floattostr(NullStelle(@Tsonne.getbeta))); und so compiliert er es leider nicht:
  showmessage(floattostr(NullStelle(@sonne.getbeta)));