Forum: Algorithmen, Datenstrukturen und Klassendesign
by BlueStarHH,
22. Jul 2018
Das sieht schonmal gut aus. Danke! Kann man das noch kürzer hinbekommen, da es sehr viele solcher Methoden gibt? Irgendwie eine anonyme Methode als Pointer übergeben und dort die eigentliche Methode der Klasse aufrufen? So in Pseudocode:
procedure TMyClass.MyProc;
begin
gblClass := Self;
Script.AddFunc(procedure Callback(const s: string)
begin
Result :=...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BlueStarHH,
22. Jul 2018
Danke für die Mühe, aber es hilft nicht. Denn ich muss die Funktion zwingend als Pointer übergeben. Denn AddFunc(Func: Pointer); ist aus einer Dritthersteller-Lib und kann nicht geändert werden.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BlueStarHH,
22. Jul 2018
Wie kann ich eine Methode einer Klasse an eine Funktion, die einen Pointer erwartet, übergeben?
TScript = class(TObject)
public
procedure AddFunc(Func: Pointer);
end;
TMyClass = class(TObject)
private
Script: TScript;