Funktionszeiger

[asusbob]

Hmm, ich hab wieder gesucht und nichts richtiges gefunden... Wie implementiere ich in Delphi Funktionszeiger? Habt ihr da vllt nen Beispiel, die Typdefinition hab ich, aber wie gehts jetzt genau weiter?

Delphi-Quellcode:

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

Danke schonmal :)

[Apollonius]

Das hängt davon ab, was du tun willst. Normalerweise verwendest du diesen Typen jetzt für die Deklaration von Parametern (wenn du Callbacks verwenden willst) oder von Feldern und Eigenschaften (für Events).

[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

Delphi-Quellcode:

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

Delphi-Quellcode:

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.

[asusbob]

Fehler gefunden... alles Richtig... Currency und Word sollte man nicht vermischen :)