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