Gewusst wie: Übergeben von Funktionen als Parameter in Prozeduren in Delphi?

Ist es möglich, ein Objekt übergeben-Funktion, die als parameter in einer Prozedur anstatt das gesamte Objekt?

Habe ich eine record-definition mit einer Funktion definiert als öffentliche class-parameter wie:

    TMyRecord = record
      public
        class function New(const a, b: Integer): TMyRecord; static;
        function GiveMeAValue(inputValue: integer): Single;
      public
        a, b: Integer;
      end;

Die Funktion könnte etwa so Aussehen:

    function TMyRecord.GiveMeAValue(inputValue: Integer): Single;
    begin
      RESULT := inputValue/(self.a + self.b);
    end;

Ich dann wollen, definieren Sie eine Prozedur ruft die Funktion Klasse GiveMeAValue aber ich will nicht, dass es vorbei die ganze Platte. Kann ich etwas tun, wie zum Beispiel:

    Procedure DoSomething(var1: Single; var2, var3: Integer, ?TMyRecord.GiveMeAValue?);
    begin
      var1 = ?TMyRecord.GiveMeAValue?(var2 + var3);
      //Do Some Other Stuff
    end;

Wenn ja, wie könnte ich dann richtig übergeben Sie der Funktion als parameter für eine Prozedur?

InformationsquelleAutor Trojanian | 2013-11-05
  1. 20

    Können Sie definieren neuen Datentyp für die Funktion, wie 

    TGiveMeAValue= function(inputValue: integer): Single of object;// this definition works fine for methods for records.

    dann definieren Sie die Methode DoSomething 

    Procedure DoSomething(var1: Single; var2, var3: Integer;GiveMeAValue: TGiveMeAValue);
begin
  writeln(GiveMeAValue(var2 + var3));
end;

    Und wie so

    var
  L : TMyRecord;
begin
    l.a:=4;
    l.b:=1;
    DoSomething(1, 20, 5, L.GiveMeAValue);
end;
    • Alternativ kann man verwenden, um Anonyme Methoden. Dies könnte erlauben Ihnen, rufen Sie eine Funktion, die Sie gerne in der anonymen Methode. docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/...
    • Anon-Methoden machen code flexibler. Allerdings können Sie eine performance Kopfschmerzen. Nicht ablehnen, ohne timing, aber wenn Sie verwendet anon Methoden in einem Engpass-Bereich des Programms, Sie können leiden.
    • Guter Punkt. Ich persönlich finde die procedure-or-function of object syntax leichter lesbar als die reference to procedure-or-function of object syntax zu. schreiben procedure (a,b,c:Integer) begin ... end inline beginnt zu hässlich.
    • Danke dafür!!!! Werk ein behandeln. 🙂
    • Ihre Methode Referenz verwendet "Single des Objekts' statt nur 'Objekt'. Sind Sie gerade sagen, um die Self-Zeiger in einem Einzigen?
    • Nein, die of object welche von der Funktion ist eine Referenz auf eine Methode einer Instanz Objekt. Finden Sie mehr Infos in der Delphi DocWiki
    • Habe ich eigentlich damit verbracht eine ganze Weile forscht "des Objekts" und Methode Referenzen vor zu Fragen, aber ich habe nie jemanden gesehen, der das einfügen einer numerischen Typ wie "Single" vor dem "Objekt". Was bedeutet das?
    • Einzige ist nur der return-Typ der Funktion.

    InformationsquelleAutor RRUZ
Schreibe einen Kommentar