Procedure als Parameter übergeben

[Jonas Shinaniganz]

Zitat:

Der einzige Nachteil an diesem Vorgehen, die Prozedur muß Parameterlos, bzw. die Parameter haben die ich in der Deklaration angegeben habe, besitzen.

Das trifft auch 1 zu 1 auf Anonyme Methoden zu.

Mal anders formuliert: Du suchst sowas wie Typenlosen-Methoden-Aufruf? Das gibt es in Delphi meines Wissens nach nicht. Dann müsste ja klar definiert sein, was passiert, wenn man die Methode aufruft ohne z.b. ein nicht Default Parameter übergeben zu haben?

Es gilt immer:

Zitat:

Zwei prozedurale Typen sind kompatibel, wenn sie folgende Bedingungen erfüllen:
Sie verwenden dieselbe Aufrufkonvention.
Sie haben denselben (oder keinen) Rückgabetyp.
Sie verwenden die gleiche Anzahl Parameter identischen Typs an den entsprechenden Positionen (die Parameternamen sind nicht von Bedeutung).

Was du machen kannst:

Delphi-Quellcode:

type
  Test = procedure(i : integer);
  procedure proc(i : integer);

procedure proc(i : integer);
begin
  ShowMessage(IntToStr(i));
end;



var
  myPointer : Pointer;
begin
  myPointer := @proc;

  if (myPointer = @proc) then
    Test(myPointer)(10);
end;

Bei procedure of Object kannst du mit TMethod(proc).Code den Pointer überprüfen.

Lass mich hören falls es was neues gibt, Grüße