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ß

**stoxx**

hier vielleicht ein gutes Tutorial:

http://www.dummzeuch.de/delphi/objec...s/deutsch.html

http://www.dummzeuch.de/delphi/objec...2/deutsch.html

**stoxx**

Ich wollte nochmal auf das Beispiel hinweisen.
Mir hatte das damals nicht gefallen, da man im Aufruf ein doppelte Create hatte.
Aber es geht doch viel einfacher *an den Kopf greif*

jedenfalls kann man jetzt die Klasse TSomeClass mit einem Interface verwenden, obwohl diese Klasse selber nicht vom Typ TInterfacedObject abgeleitet ist. Und das ist ja schonmal perfekt!!

Und man merkt keinen Unterschied. Perfekt für Objektorientiertes Programmieren.
Und vor allen Dingen braucht man sich nicht selber um die Freigabe des objektes kümmern, wird einfach freigegeben, sobald es nicht merh benutzt wird ...

Man würde sich wünschen, dass Delphi Win32 das auch mal von Haus aus kann, ohne dass man den Wrapper benutzen muss. Sollte eigentlich, wenn man will, für den Compiler kein problem sein.
(Wenn es Codegear denn integriert)

Verwendung einfach:

markieren

Delphi-Quellcode:

			var

  SomeInt: ISomeInterface;

begin

  SomeInt := TSomeWrapper.Create;

  SomeInt.Method1;

http://www.dummzeuch.de/delphi/objec...2/deutsch.html

zusammenfalten · markieren

Delphi-Quellcode:

			unit frmMain;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  ISomeInterface = interface

    procedure Method1;

    procedure Method2;

  end;

//==============================================================================

type

  TSomeClass = class(TObject)

    procedure Method1;

    procedure Method2;

  end;

//==============================================================================

type

  TSomeWrapper = class(TInterfacedObject, ISomeInterface)

  protected

    fSomeClass: TSomeClass;

    property SomeClass: TSomeClass read fSomeClass implements ISomeInterface;

  public

    constructor Create;

    destructor Destroy; override;

  end;

//==============================================================================

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

//==============================================================================

implementation

//==============================================================================

{$R *.dfm}

{ TSomeClass }

//==============================================================================

procedure TSomeClass.Method1;

begin

    showmessage('Test Method1');

end;

//==============================================================================

procedure TSomeClass.Method2;

begin

end;

//==============================================================================

//==============================================================================

//==============================================================================

constructor TSomeWrapper.Create;

begin

  inherited Create;

  fSomeClass := TSomeClass.Create;

end;

//==============================================================================

destructor TSomeWrapper.Destroy;

begin

  fSomeClass.Free;

  inherited;

end;

//==============================================================================

procedure TForm1.Button1Click(Sender: TObject);

var

  SomeInt: ISomeInterface;

begin

  SomeInt := TSomeWrapper.Create;

  SomeInt.Method1;

end;

end.

stoxx	#2 11. Nov 2004, 21:21 hier vielleicht ein gutes Tutorial: http://www.dummzeuch.de/delphi/objec...s/deutsch.html http://www.dummzeuch.de/delphi/objec...2/deutsch.html
	Zitat

Interfaces und Delegation durch "implements"

Forumregeln