commit 0eab6e0ae55fcba624a9278415ed8807e5a591c9
author Jens Geyer <jensg@apache.org> Fri Nov 03 11:17:01 2023 +0100
committer Jens Geyer <jensg@apache.org> Fri Nov 03 11:19:47 2023 +0100
tree 03b1b12f99d7ae694164bdcfae1c32c1ee927919
parent 2b00c0ae996abada050cffad902ec488652e150c

THRIFT-5740 inherited interfaces should be explicitly listed in Delphi class decl
Client: Delphi
Patch: Jens Geyer

tutorial/delphi/DelphiServer/DelphiServer.dpr

diff --git a/tutorial/delphi/DelphiServer/DelphiServer.dpr b/tutorial/delphi/DelphiServer/DelphiServer.dpr
index 5f2dc45..6b8e115 100644
--- a/tutorial/delphi/DelphiServer/DelphiServer.dpr
+++ b/tutorial/delphi/DelphiServer/DelphiServer.dpr
@@ -41,7 +41,7 @@
 
 
 type
-  TCalculatorHandler = class( TInterfacedObject, TCalculator.Iface)
+  TCalculatorHandler = class( TInterfacedObject, TSharedService.Iface, TCalculator.Iface)
   protected
     FLog : TDictionary< Integer, ISharedStruct>;