====== Les Interfaces ======
<code delphi>
type
  IToString = interface
    function ToString: string; 
  end;
 
  TMonObjet = class(..., IToString)
    function ToString: string; 
  end;
 
  TUnAutreObjet = class(..., IToString)
    function ToString: string;
  end;

</code>