Funktionszeiger

[asusbob]

also ich habe ein Codestücke was wirklich oft 8 mal glaub ich insg. redundant ist und sich nur in einer zeile, einem funktionsaufruf unterscheidet....

also so weit bin ich, die funktion wird aufgerufen allerdings geht der rückgabewert verloren Oo

Typdefinition
TMathFunc = Function(l : TExerciseInfoList; Excluded : TExcluded) : Currency; Funktion

Delphi-Quellcode:

  function  getAnyAll(f : TMathFunc) : Currency;
    var i, j : Word;
        res  : Currency;
  begin
    i := 0; j := 0;
    RESULT := 0;

    for i := low(esRelevant) to high(esRelevant) do
      if esRelevant[i] then
      begin
        res := f(earTimes[i], exExcluded);

        if res <> 0 then
        begin
          RESULT := RESULT + res;
          inc(j);
        end;
      end;


    if (j = 0) then
      RESULT := 0
    else
      RESULT := RESULT / j;
  end;

Aufruf
sgDetailView.Cells[sgDetailView.ColCount - 1,1] := myFlToStr(getAnyAll(@getAvailableDataSets)); Keine Fehlermeldung kein nichts... "getAvailableDataSets" gibt den richtigen Wert zurück, getAny hat dann aber nen ganz anderen wert Oo.