Also gut, dann werde ich wohl nicht um Hilfsklassen herumkommen.
@mkinzler
Ich habe mich ein bisschen schlecht ausgedrückt. In der Methode
Arbeiten wird sendedaten einmal mit dem Methodenzeiger NIl ausgeführt. Dies geht in Delphi 2006, aber in Delphi 5 kommt eine ähnlicher Fehlermeldung wie, es gibt keine überladene Funktion mit diesen Übergabeparametern. Ich meinte also eigenltich einen nicht refernzierten Methodenzeiger (NIL).
Zur besseren Übersicht habe ich noch mehr Code hinzugefügt.
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 überladene Funktion gibt mit diesen Übergabeparametern
...
end;
function sendedaten(Text: String; ausgeben: TAusgabe );
begin
...
if assigned(ausgeben)then ausgeben(0, 'Fehler beim senden! err='+InttoStr(GetLastError()) );
...
end;
Der Vorteil diese Konstruktes ist, ich kann in der Methode
Textausgeben, welche ihre als Fehlerausgabe dient, die Funktion
sendedaten als Standardausgabe verwenden, ohne das bei einem Fehler in der Funktion
sendedaten wieder die Funktion
Textausgeben ausgeführt wird.
Das sieht dann so aus:
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 überladene Funktion gibt mit diesen Übergabeparametern
...
end;
procedure Testclass.Textausgeben(inlevel: Integer; invalue: String);
begin
...
sendedaten(format('%8.8X %s', [inlevel, invalue]), NIL);
...
end;
function sendedaten(Text: String; ausgeben: TAusgabe );
begin
...
if error then
begin
if assigned(ausgeben)then ausgeben(0, 'Fehler beim senden! err='+InttoStr(GetLastError()) );
end;
...
end;
Ich hoffe jetzt ist mein zweites Problem klar,
Phil