Beliebige Klasse instanzieren

[Uwe Raabe]

Zitat von DualCoreCpu:

laut Angabe in seinem Beitrag hat er Delphi 5.

Also ich lese da ziemlich deutlich XE7. Bei seinem Profil steht Delphi 5, aber das ist offenbar default.

[Mavarik]

Zitat von DualCoreCpu:

Habe jetzt gerade eben diesen ganz spontan diesen Link dazu gefunden:

http://docs.oracle.com/javase/7/docs...ctFactory.html

Java?

Zitat von DualCoreCpu:

Muss das in Delphi selber gebaut werden oder gibt es da schon irgendwo was? Letzteres hoffentlich nicht erst in den Delphi Versionen nach 2006.

Es gibt "bald" etwas... Momentan muss man das selber bauen...sind aber "nur" ein paar Zeilen...

[amoibos]

Wenn das ein paar Zeilen sind, hast du denn eine Implementierung hierfür?
Deine ist ja keine Lösung und die im Netz verkürzen das Problem auf eine Methode die überladen wird.
Sicher eine Lösung aber danach hab ich ja nicht gefragt.

[Sir Rufo]

Zitat von DualCoreCpu:

Klar, TInterfacedObject!!! Wär noch die Frage das Aufbaus der Dll mit der implemtierten Klasse(n). Und der Interface Unit. Aber da schau ich mir erst mal Plugin Quelltexte an in denen auch sowas gemacht wird.

Ob man wirklich von TInterfacedObject oder TInterfacedPersistent oder von TAggregatedObject oder doch eher von TContainedObject ableitet ... oder sogar die Implementierung ganz anders vollzieht (über eine Eigenschaft) ... das kann man pauschal nicht sagen, denn alle haben ihr spezielles Einsatzgebiet.

[Mavarik]

Zitat von amoibos:

Wenn das ein paar Zeilen sind, hast du denn eine Implementierung hierfür?
Deine ist ja keine Lösung und die im Netz verkürzen das Problem auf eine Methode die überladen wird.
Sicher eine Lösung aber danach hab ich ja nicht gefragt.

Klar ist das eine Lösung...

Der Factory müssen die Implementationen bekannt sein...

Ob die an der Factory registriert werden und in einem Dictionary gespeichert oder ob die Factory ne große Case hat... Kommt unterm Strich aufs selbe raus...

Beispiel: Datenbankverbindung...

Unit A will Datenspeichern...
Dafür bietet Unit B ein Interface
Unit C ist die Factory...

Unit A linkt nur gegen Unit B und Unit C

Unit C kennt die Implementationen
Unit D -> Speichert in lokaler Datenbank
Unit E -> Speichert auf Server per REST,SOAP oder was auch immer...

Unit C kennt D & E (Case/If Fall)
Unit C kennt nix bietet aber eine Registirerungsmethode (Beispiel Plattformservices)

Unit A sagt:

IDatenbank := UnitC.DatenbankFactory('Local');
oder
IDatenbank := UnitC.DatenbankFactory('Remote');

Jetzt kann UnitC anhand des Strings die richtige Implementation liefern...

Es gibt noch eine weitere Implementation.. ggf. in Zukunft?

Delphi-Quellcode:

IDatenBank := UnitC.DatenbankFactory('Cloud');
if IDatenbank = NIL
  raise ENotImplemented.Create('Cloud-Datenbank ist nicht implementiert');

bzw:

Delphi-Quellcode:

IDatenBank := UnitC.DatenbankFactory<DatenbankInterface>('Cloud');
if IDatenbank = NIL
  raise ENotImplemented.Create('Cloud-Datenbank ist nicht implementiert');

Mavarik

[amoibos]

Dir ist aber schon bewusst das es einen Unterschied gibt zwischen dem Factory-Pattern und der ObjectFactory?

[Mavarik]

Zitat von amoibos:

Dir ist aber schon bewusst das es einen Unterschied gibt zwischen dem Factory-Pattern und der ObjectFactory?

Ja, deswegen hat unser SDK auch eine "TAnyFactory" die kann alles erzeugen...

[DualCoreCpu]

Zitat von Uwe Raabe:

Zitat von DualCoreCpu:

laut Angabe in seinem Beitrag hat er Delphi 5.

Also ich lese da ziemlich deutlich XE7. Bei seinem Profil steht Delphi 5, aber das ist offenbar default.

Bei ihn steht das hier links neben seinem Beitrag:

Zitat:

amoibos

Registriert seit: 1. Sep 2015
25 Beiträge

Delphi 5 Professional

Nichts anderes habe ich behauptet. Du hast (Sie haben) Delphi XE.

Daher habe ich gefragt, ab welcher Delphi Version der vorgeschlagene Typecast funktioniert. Werde es aber mit Turbo Delphi und dann Delphi 7 gleich mal testen, od das da auch klappt.

[TiGü]

Zitat von DualCoreCpu:

Bei ihn steht das hier links neben seinem Beitrag:

Das ist, wie Uwe schon schrieb, ein "Feature" der Forensoftware für dieses Unterforum.
Stimmt in der Regel nie!

Zitat von DualCoreCpu:

Daher habe ich gefragt, ab welcher Delphi Version der vorgeschlagene Typecast funktioniert. Werde es aber mit Turbo Delphi und dann Delphi 7 gleich mal testen, od das da auch klappt.

Sollte ab Delphi 2010 gehen:
http://stackoverflow.com/a/11167316

[Uwe Raabe]

Zitat von TiGü:

Das ist, wie Uwe schon schrieb, ein "Feature" der Forensoftware für dieses Unterforum.
Stimmt in der Regel nie!

Einige von uns arbeiten halt gleichzeitig mit verschiedenen Delphi-Versionen, können aber nur eine im Profil auswählen. Das steht dann halt auch links vom Beitrag. Deshalb finde ich es immer gut, wenn in dem jeweiligen Beitrag die relevante Version angegeben wird. Sei es durch die Angabe in einem eigens dafür vorhandenen Feld oder im Text selbst.

In diesem Fall war das aber schon korrekt mit XE7 angegeben.