Interfaces und Delegation durch "implements"

[Leuselator]

Das Thema Interfaces treibt mich nun seit Tagenen um. Da die deutschsprachigen Quellen (incl. OH) dazu eher dürftig sind denke ich es könnte dem einen oder anderen helfen, wenn ich meinen Erkenntnisprozess hier ein wenig öffentlich mache.

Im Augenblick interessieren mich Interfaces vor allem aus 3 Gründen:

• Sie ermöglichen eine abgemilderte Form der Mehrfachvererbung in Delphi
• Sie ermöglichen die abstrakte Ansprache von konkreten Objekten ohne TypeCast-Orgien
• Sie können über Delegation an Implementationsklassen gut dazu dienen vorhandene Objekte um neue Funktionen zu erweitern

Zu letzgenanntem Aspekt füge ich ein kleines Beispielprojekt an, in dem ich zeige, wie man durch Delegation ein Objekt (TSoftwareFirma) um ein Interface erweitert. Das Beispiel ergibt so wie es ist nicht viel Sinn, aber sollte den Sachverhalt ganz gut erklären.

Feedback wie immer willkommen.

Gruß