Delegates: Difference between revisions

=={{header|Ada}}==

All that is needed in order to implement this is a common base type. The delegator holds a pointer to an "untyped" object from the base class. Querying if the target implements the delegate interface is done using run-time type identification.

with Ada.Text_IO; use Ada.Text_IO;

 

Put_Line (A.Operation);

end Delegation;

Sample output:

<pre>