Ich hab folgendes Problem:
Ich hab eine Funktion, welche zur Fehlerausgabe eine Methode in einem Objekt aufruft.
Um nun nicht nur Methoden zur Fehlerausgabe zuverwenden, würde ich gerne mit Funktionszeigern arbeiten und Methodenzeiger in Funktionszeiger umwandeln. Gibt es dafür eine Möglichkeit. Mein zweites Problem ist, wie ich einen leeren Methodenzeiger definiere.
Delphi-Quellcode:
Type
TAusgabe = procedure (inlevel: Integer; invalue: String) of object;//Hier lieber ohne of object
Testclass = class
...
procedure Textausgeben(inlevel: Integer; invalue: String);
procedure Arbeiten;
...
end;
function sendedaten(Text: String; ausgeben: TAusgabe );
implementation
...
procedure Testclass.Arbeiten;
begin
...
sendedaten("Senden mit Fehlerausgabe", Textausgeben);//Hier: Umwandeln von Methodenzeiger zum Funktionszeiger
...
sendedaten("Senden ohne Fehlerausgabe", NIL);//Kompiler meldet Fehler, dass es keine Funktion gibt mit diesen Übergabeparameter
...
end;
Die einfache Lösung, sendedaten in die Klasse zu integrieren ist nicht praktikabel, da es viel (über 10) Funktionen sind und diese eigentlich nicht zum Objekt gehören. Einige Funktionen sind auch keine Funktionen sonderen Methoden von Objekten die im Objekt Testclass existieren.
Ich hoffe auf Gute Ideen,
Phil