<p>Am 02.09.2017 06:34 schrieb "Ryan Joseph" <<a href="mailto:ryan@thealchemistguild.com">ryan@thealchemistguild.com</a>>:<br>
><br>
> I think I asked this some years ago but I came across it again I just don’t get what the point of this is. There is an “implements” property but it seems like yet another half-baked feature from Delphi that wasn’t implemented completely or is broken. What’s the point of implementing an interface like this on TBaseClass if you need to access all the methods by using the property name (“hook” in this case) when you could just add an instance of THook in TBaseClass? It adds so much noise and clutter in the language and for what? The only reason it makes sense is if you could call “base.DoIt” and omit the .hook every time you’re typing but that was overlooked for some reason. Why??<br>
><br>
><br>
> type<br>
>   IHook = interface ['IHook']<br>
>     procedure DoIt;<br>
>   end;<br>
><br>
> type<br>
>         THook = class (IHook)<br>
>                 procedure DoIt;<br>
>         end;<br>
><br>
> procedure THook.DoIt;<br>
> begin<br>
>         writeln(ClassName+' did it');<br>
> end;<br>
><br>
> type<br>
>         TBaseClass = class (IHook)<br>
>                 private<br>
>                         m_hook: IHook;<br>
>                 public<br>
>                         property Hook: IHook read m_hook implements IHook;<br>
>                         constructor Create;<br>
>         end;<br>
><br>
> constructor TBaseClass.Create;<br>
> begin<br>
>         m_hook := THook.Create;<br>
> end;<br>
><br>
><br>
> base: TBaseClass;<br>
><br>
> base := TBaseClass.Create;<br>
><br>
> base.DoIt; // CANT DO THIS<br>
> base.hook.DoIt; // MUST DO THIS</p>
<p>Because you must use the interface and not the class instance:</p>
<p>=== code begin ===</p>
<p>var<br>
  base: TBaseClass;<br>
  hook: IHook;<br>
begin<br>
  base := TBaseClass.Create;<br>
  hook := base;</p>
<p>  hook.DoIt; // will call base.hook.DoIt<br>
end;</p>
<p>=== code end ===</p>
<p>Regards,<br>
Sven</p>