Interface mit abstraktem Datentyp erstellen?

sunnyandy · Beiträge: 47

Hallo!

Ich möchte in meinem Interface z.B. folgende Methode schreiben:

Delphi-Quelltext

1:	procedure Anzeigen (Dokument: IDokument);

Eine Klasse, die dieses Interface implementiert, besteht z.B. aus:

markieren

Delphi-Quelltext

1:	procedure Anzeigen (Dokument: TWordDokument);

Bei dieser Klasse soll Anzeigen nämlich mit einem ganz bestimmten Dokumententyp ausgeführt werden können, trotzdem möchte ich die Methode im Interface für "allgemeine" Dokumententypen haben.

Natürlich meldet der Compiler, dass die Definition der Prozedur nicht mit dem Interface übereinstimmt, obwohl die Klasse TWordDokument IDokument implementiert.

In Java hatte ich das mal mit Generics gelöst, wie kann ich das hier machen?

Bin für jede Hilfe dankbar!
Gruß, Andy

alias5000 · Verfasst: So 28.10.07 22:37

Hm, kannst du zu deinem Beispiel evtl. mal eine komplette (Beispiel-)Klassendefinition hinschreiben? Weil, wenn ich dich richtig verstanden habe, dann hast du einen kleinen Denkfehler in deiner Verteilung von Klassen und der Anzeigen-Methode drinnen (die zweite brauchst du ja nicht zwingend...!?)

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN

sunnyandy · Beiträge: 47

Hallo!

Mein Interface sieht so aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

unit InterfaceDokumentenansicht;

interface

  uses
    InterfaceDokument;

  type IDokumentenansicht = interface
    procedure Anzeigen(Dokument: IDokument);

  end;

implementation

end.

Alle Klassen, die dieses Interface implementieren, sollen die Prozedur "Anzeigen" imeplementieren. IDokument soll dabei aber nur eine "Oberklasse" oder ein Interface sein (Ich weiß ja nicht, wie man es in Delphi machen muss). Es soll also möglich sein, ein TWordDokument, oder TExcelDokument zu übergeben, je nachdem was die konkrete Anzeigen-Methode erwartet.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

type
  TFrameWordDokument = class(TFrame, IDokumentenansicht)

  private

  public
    procedure Anzeigen (Dokument: TWordDokument)
  end;

Wiederum soll eine andere Klasse ein anderen Dokumententyp erwarten können:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

type
  TFrameExcelDokument = class(TFrame, IDokumentenansicht)

  private

  public
    procedure Anzeigen (Dokument: TExcelDokument)
  end;

alias5000 · Verfasst: So 28.10.07 23:29

Hmm, ich kann jetzt auch vollkommen falsch liegen, aber kommst du vielleicht mit overload; weiter?
Ich meine das so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

type
  TFrameWordDokument = class(TFrame, IDokumentenansicht)

  private

  public
    procedure Anzeigen (Dokument: TWordDokument); overload;
  end;

Das habe ich aber noch nie probiert, glaube ich. Versuchs einfach mal.

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN

BenBE · Verfasst: Di 30.10.07 23:14

Das schöne an Interfaces ist doch eben, dass alle Klassen, die diese implementieren, eine gemeinsame Funktionalität bereitstellen, unabhängig von ihrer Vererbung. Wenn Du neben den Informationen in IDokument weitere Informationen zum Anzeigen brauchst, die nicht über das Interface abrufbar sind, ist dein Design schlecht.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Dein procedure Anzeigen (Dokument: TWordDokument) implementiert nicht das allgemeine procedure Anzeigen(Dokument: IDokument); sondern etwas Spezielleres. Eine allgemeine Implementation ist nicht gegeben. Egal wie "gescheit" ein Compiler ist, wird es nicht klappen. Du kannst nicht verhindern, dass jemand einem TFrameWordDokument ein TExcelDokument zum Anzeigen übergibt, wenn es über allgemeine Interfaces geht. Was soll in diesem Fall deiner Meinung nach passieren? Wie BenBE schon sagt, macht das Design so nicht viel Sinn.

Vielleicht sagtst du uns, was die genaue Anwendung ist. Dann können wir versuchen, ein besseres Design vorzuschlagen.

Wieso nicht z.B. TFrameWordDokument von TWordDokument ableiten mit einer zusätzlichen Methode Anzeigen (ohne Parameter)?

Oder eine Abstract Factory in TDokument einbauen, z.B. function CreateFrameDokument: TFrameDokument; virtual; abstract;. In einer abgeleiteten Klasse kreiert die dann ein TFrameDokument, welches eine Methode Anzeigen besitzt (wiederum ohne Parameter). Bspw. kreiert TWordDokument dann in CreateFrameDokument ein TFrameWordDokument, etc.. So passt immer alles zusammen. Ob das auf deinen Fall anwendbar ist, weiss ich aber nicht.

sunnyandy · Beiträge: 47

Hallo,

danke für eure Antworten! Ich glaube, ich habe ein schlechtes Beispiel gewählt, es ist auch zu sehr im Projekt verwebt, um das gut erklären zu können.

Ich versuch es, präzise an einem anderen Beispiel zu erklären:
Nehmen wir mal an, ich schreibe ein paar Datenbankklassen, die alle ein paar bestimmte Methoden (Insert(Kunde: TKunde), Update(Kunde:TKunde)) implementieren sollen. Die Datenbankklasse für Kunden erwartet Kundenobjekte, die Klasse für Verträge erwartet, dass man Verträge übergibt.
Und genau diese Methoden will ich in einem Interface zusammmenfassen.
Ich kann im Interface aber nicht "procedure Insert(Kunde:TKunde)" angeben, denn dann müssten alle Klassen in dieser Methode ein TKunde entgegennehmen.
Kann ich im Interface nicht etwas Allgemeines fordern wie "procedure Insert(SpeicherbaresObjekt: TSpeicherbar)", wober TKunde und TVertrag irgendwie davon ableiten oder diese Schnittstelle implementieren?
Oder ist das Design schlecht?

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

In wiefern kannst du das Design noch ändern? Bist du momentan völlig frei?

jaenicke · Verfasst: Mi 31.10.07 10:34

sunnyandy hat folgendes geschrieben:

Kann ich im Interface nicht etwas Allgemeines fordern wie "procedure Insert(SpeicherbaresObjekt: TSpeicherbar)", wober TKunde und TVertrag irgendwie davon ableiten oder diese Schnittstelle implementieren?

Das geht schon, du darfst nur bei der Deklaration bzw. Implementierung der Methode in einer Klasse, die das Interface implementiert, nicht plötzlich etwas spezielleres als Parameter angeben als im Interface.
Du musst die Prozedur schon genauso deklarieren und musst dann in der speziellen Implementierung in einer Klasse ggf. einen TypeCast durchführen. Damit kann der Compiler zwar nicht mehr prüfen, ob tatsächlich der richtige Typ übergeben wird, aber damit muss man dann leben. Bei sauberer Programmierung sollte das aber auch kein Problem darstellen, und für den Fall der Fälle sollte man eine Ausnahmebehandlung einbauen, falls doch ein falscher Typ übergeben wurde, verbunden mit einer Fehlermeldung, die dir als Programmierer sagt, dass an der Stelle doch ein falscher Typ übergeben wurde.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

unit InterfaceDokumentenansicht;

interface

  uses
    InterfaceDokument;

  type IDokumentenansicht = interface
    procedure Anzeigen(Dokument: IDokument);

  end;

implementation

end.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

type
  TFrameWordDokument = class(TFrame, IDokumentenansicht)

  private

  public
    procedure Anzeigen (Dokument: IDokument)
  end;

So geht dann das:

markieren

Delphi-Quelltext

1:	FrameWordDokument1.Anzeigen(MyWordDocument);

Wobei MyWordDocument IDokument implementieren muss.
Der Compiler kann dann nicht erkennen, dass folgendes falsch ist:

markieren

Delphi-Quelltext

1:	FrameExcelDokument1.Anzeigen(MyWordDocument);

Das geht aber nicht anders, da es ja gerade darum geht, dass allgemeine Funktionalität in allen abgeleiteten Klassen implementiert wird.

--> Insofern frage ich mich zwar schon, was Interfaces hier für einen Sinn machen, aber funktionieren tut es schon.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme