Das HandlePubFunc würde ich aber in TPubFunc mit integrieren.
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.
Delphi-Quellcode:
procedure HandleJSONObject(AFunc: TJSONObjectFunc);
begin
...
json := AFunc(jsonPara);
...
end
var
xPubFunc : IPubFunc;
begin
xPubFunc := xClient.Service<IPubFunc>;
HandleJSONObject(TPubFunc.InstallEvent(xPubFunc));
...
HandleJSONObject(TPubFunc.FireEvent(xPubFunc));
...
end;