Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
27. Jul 2022
Na ja, das ist doch das mindeste was man von von einer unschönen Lösung erwarten kann. Andernfalls wäre sie ja auch noch nutzlos.
Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
26. Jul 2022
Würde ich eben gerade nicht machen. Es kann ja durchaus mehrere HandlePubFunc geben. Das HandlePubFunc könnte ja auch völlig unabhängig von IPubFunc sein (dann sollte es natürlich anders heißen) und lediglich eine TJSONObjectFunc als Parameter benötigen. Können wir ja hier nicht wissen was da alles drin passiert.
procedure HandleJSONObject(AFunc: TJSONObjectFunc);
begin
...
json :=...
Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
26. Jul 2022
Ist nur so eine Idee:
type
TJSONObjectFunc = reference to function( const Param: TJSONObject): TJSONObject;// of object;
type
TPubFunc = record
class function InstallEvent(Target: IPubFunc): TJSONObjectFunc; static;
class function UninstallEvent(Target: IPubFunc): TJSONObjectFunc; static;
class function SubscribeEvent(Target: IPubFunc): TJSONObjectFunc; static;
Forum: Object-Pascal / Delphi-Language
Delphi
by Uwe Raabe,
25. Jul 2022
Das funktioniert nur dann, wenn jedes Mal das gleiche Interface übergeben wird und intern immer dieselbe Funktion davon aufgerufen wird. Im diesem Fall hier klappt das nicht:
Ergebnis1 := Rechenfunktion( EinString, EinInterfaceObjekt.DieFunktion);
Ergebnis2 := Rechenfunktion( EinString, EinInterfaceObjekt.DieAndereFunktion);
Das Problem bei diesem Ansatz ist, dass...