With MyObject as MyObject.ClassType Do

[QuickAndDirty]

With MyObject as MyObject.ClassType Do Wie kann ich sowas erreichen?

Es handelt sich um 2 Tdataset Nachfahren die über die selben Methoden verfügen.
Ich kann nur eine davon umschreiben.
Gibt es ein Interface das TTable implemtiert?
Kann ich einfach casten auch wenn die verwendeten Methoden nicht in TDataset vorhanden sind?

In Java könnte man sowas glaube ich über Aspekte oder Prototypen lösen gibt es sowas ähnliches in Delphi?

[Elvis]

Zitat von QuickAndDirty:

With MyObject as MyObject.ClassType Do Wie kann ich sowas erreichen?

Es handelt sich um 2 Tdataset Nachfahren die über die selben Methoden verfügen.
Ich kann nur eine davon umschreiben.
Gibt es ein Interface das TTable implemtiert?
Kann ich einfach casten auch wenn die verwendeten Methoden nicht in TDataset vorhanden sind?

Nope, die VCL wurde leider nie aufgepeppt um Interfaces zu benutzen.
Gerade bei Datenbankzugriffskomponenten ist das Ergebnis der Kuddelmuddel den man jetzt hat...

Was du hier machen kannst wäre Wrapper anzulegen, die ein Interface implementieren.
Und dann eine Factory, wo du die Instanz des Datasets reinwirfst und eine Interface referenz des Wrappers zurückbekommst.

[QuickAndDirty]

ICh wollte einfach vermeiden 2 identische Codeblöcke (ganz große) hin zu klatschen
für jedes der Tdatasets den selben, mit einer anderen
With bla as Tblabla do drumm herum.

Wenn ich das über einen Wrapper mache der mir ein interface zurrück gibt müste ich
in der Wrapper classe trotzdem jeden der Beiden TDataset Datentypen einzeln behandeln
zumindest für Indexfieldnames, Tablename, Databasename, etc.

Also keine so tolle Lösung dann lieber Copy&Paste

[SirThornberry]

das was du vor hast geht nicht. Die with-Anweisung ist einfach nur für schreibfaule und wird zum Zeitpunkt des compilierens aufgelöst. Daher kannst du dort keinen dynamichen Datentyp nutzen. Ansonsten wäre es eine Interpretersprache.

[Elvis]

Zitat von QuickAndDirty:

Wenn ich das über einen Wrapper mache der mir ein interface zurrück gibt müste ich
in der Wrapper classe trotzdem jeden der Beiden TDataset Datentypen einzeln behandeln
zumindest für Indexfieldnames, Tablename, Databasename, etc.

Du könntest auch von beiden Klassen ableiten und nix weiter machen als das Interface hinzuzufügen.
Wenn die Member, die du gleich behandeln willst wirklich gleich heißen und gleich deklariert sind,würde es schon reichen nur die im Interface aufzuführen.
Das Interface würde dann implizit implementiert werden.

Zitat:

Also keine so tolle Lösung dann lieber Copy&Paste

Lol? Natürlich wäre das trotzdem besser als Copy & Waste, selbst wenn du die Calls zum Interface durchschleifen müsstest!
Wie willst du sie denn sonst im Code gleich behandeln? Sie haben ja nicht die gleiche Hierarchie.

[QuickAndDirty]

Ah, ja jetzt verstehe ich was du meinst.
Gut das hört sich nach einer Brauchbaren Lösung an.
Ich entwerfe Ein Interfaface ITable
und ich leite von TMyTable eine klasse ab die Ttable implementiert und sonst nichts tut ja ?
Genau das slebe mache ich mit dem nnot good Old TTable so das ich quase beide Klassen über
ihre Nachfahren mit dem Selben Interface versorgt habe.

Kann ich dann einfach auf with aDataset as ITable do casten?
Könnte ich einen Vorfahren als einen Identischen Nachfahren Casten? Oder muss ich
wirklich adataset := TInterfacedTable.create(self); machen?

[Elvis]

Zitat von QuickAndDirty:

Kann ich dann einfach auf with aDataset as ITable do casten?

Ja. Du solltest dem interface aber eine GUID geben, sonst kann der as-Operator nicht funktionieren. (Er verwendet QueryInterface)

Zitat:

Könnte ich einen Vorfahren als einen Identischen Nachfahren Casten? Oder muss ich
wirklich adataset := TInterfacedTable.create(self); machen?

Du hast das wieder so schön nichtssagend schwammig ausgedrückt...

Generell gilt: Eine Instanz von TBlabla sollte man nicht einfach als TAbleitungVonBlabla benutzen, außer man weiß ganz genau was man da macht und vor allem warum man es macht.

Wenn du beide (oder zukünftig mehr) Klassen ableiten und dein Interface implementieren kannst, und wenn du die Stellen, in denen die alten Klassen benutzt werden, durch die Ableitungen ersetzen kannst. Nunja, dann bräuchtest du keine Zauberei.

Wenn das nicht geht wäre die einzige vernünftige Lösung einen Wrapper anzulegen, der das Interface implementiert und eine Factory, die aus einer Dataset-Instanz eine Referenz auf den Wrapper zurückgeben kann.
Klingt alles viel schlimmer als es tatsächlich ist.

btw: Interfaces gehören IMHO genau wie Klassen zu den absoluten Grundlagen in Delphi.
Du solltest dich also definitiv damit auseinandersetzen.

[QuickAndDirty]

Ich habe mich immer wenn ich es mal brauchte damit auseinander Gesetzt, aber ich muss zu geben
das es eher ein Teil meines passiven Delphisprachschatzes ist...

Der Begriff Factory sagt mir irgendwie nichts? Meinst du eine Klasse , Objekt oder Klassen Methode
die im Prinzip Objekte erzeugt?