Function/Procedure selbst als Parameter übergeben?

[Kostas]

Hallo Zusammen,

wie kann ich eine Procedure oder Function als Parameter einer
anderen Procedure oder Function übergeben?

.. Ist etwas schwer zu beschreiben ein Beispiel

Procedure ProcInnen;
begin
...
end;

procedure Aussen(MyProc :was?); <<<als Parameter ProcInnen übergeben
if irgendwas then MyProc <<< aufrufen
...
end;

Gruß Kostas

[alcaeus]

Du kannst den Rückgabewert einer Funktion als Parameter einer anderen Funktion übergeben. Eine Prozedur kannst du aber meines Wissens nach nicht, da diese ja keinen Rückgabewert hat. Und Parameter sind nunmal für Werte geschaffen worden.

Greetz
alcaeus

PS: Ich weiß nicht ob ich dich genau verstanden hab, erklärs im Notfall genauer...

[shmia]

Zitat von Kostas:

wie kann ich eine Procedure oder Function als Parameter einer
anderen Procedure oder Function übergeben?

.. Ist etwas schwer zu beschreiben ein Beispiel

Procedure ProcInnen;
begin
...
end;

procedure Aussen(MyProc :was?); <<<als Parameter ProcInnen übergeben
if irgendwas then MyProc <<< aufrufen
...
end;

Delphi-Quellcode:

// TProcedure ist in SysUtils deklariert
procedure Aussen(MyProc :TProcedure);
begin
   if Assigned(MyProc) then   // prüfe auf nil Zeiger
      MyProc;   // aufrufen
end;

// Test
begin
   Aussen(ProcInnen);
   Aussen(nil);        // auch zulässig
   Aussen(Randomize);  // auch zulässig, da Randomize dem Typ TProcedure entspricht
end;

Ein Beispiel, bei dem die Procedure auch Parameter hat findest du unter Code Library (nächster oder vorhergehender Arbeitstag)

[Skyruner2]

und wofür brauch man soetwas??

[Chewie]

Callback-Prozeduren und Events. Ohne das gäb es keine Nachrichtenfunktionen und auch keine ButtonClicks

[Skyruner2]

hmmm könntest du das bitte genauer erläutern ?

[Chewie]

Ein Event (also beispielsweise ein Klick eines Buttons) ist in VCL-Komponenten als Zeiger auf eine Methode deklariert. Um jetzt bei einem Button-Click wirklich Code auszuführen, muss die Instanz der Komponente ja wissen, was sie ausführen muss. Dafür wird eine eigene Methode geschrieben (deine ButtonClick-Methode) und einen Zeiger auf diese Methode als Event gesetzt.
Wäre das nicht möglich, müsstest du für jeden Button, den du benutzt, eine eigene Klasse von TButton ableiten.

[maestro]

Zitat von Kostas:

wie kann ich eine Procedure oder Function als Parameter einer
anderen Procedure oder Function übergeben?

Klar geht das - du übergibst einen Zeiger auf die Funktion bzw. Prozedur. Siehe auch hier: http://www.delphi-source.de/grundlag...ionszeiger.php

[Kostas]

Volltreffer Leute, genau das habe ich gemeint.
Besten Dank dafür.

Gruß Kostas