Objects mehrfach nutzen

[Hansa]

Es wird theoretisch. :zwinker:

Delphi-Quellcode:

type TObject1 = class(TObject)
  a,
  b :  integer;
end;
 
TObject2 = class(TObject1)
  c : integer;
end;

TObject2 hat also a, b und c.

Delphi-Quellcode:

Tfrm1 = class(Tform)  // soll a und b besetzen
...
obj1 : TObject1;
...
end;

Tfrm2 = class(Tfrm1) // soll a und b aus Vorgänger TFrm1 verwenden und c besetzen 
...
obj2 : TObject2;
...
end;

Preisfrage : geht das oder nicht ? :gruebel: Angeblich geht das, aber ich sage : Nein. Weil der Typ zwar vererbt wurde, aber nicht der Inhalt der Variablen. Wie geht das aber trotzdem, falls es so nicht geht ? :mrgreen:

[Jelly]

Zitat:

Zitat von Hansa

Angeblich geht das, aber ich sage : Nein. Weil der Typ zwar vererbt wurde, aber nicht der Inhalt der Variablen. Wie geht das aber trotzdem, falls es so nicht geht ? :mrgreen:

Ich bin ehrlich gesagt etwas irritiert :stupid:

Was hat obj2 in Tfrm2 mit obj1 in Tfrm1 zu tun. Du hast doch einfach 2 simple Instanzen von 2 unterschiedlichen Klassen. Also wieso sollte obj2 irgendwas von obj1 erben?

[Khabarakh]

Zitat:

Zitat von Hansa

Wie geht das aber trotzdem, falls es so nicht geht ? :mrgreen:

Je nach weiterem Kontext gibt es natürlich dutzende Möglichkeiten, also hier mal zwei Vorschläge ;) . Wenn obj1 und obj2 bleiben (und sich a und b natürlich teilen) sollen, könntest du obj1 im Form2-Konstruktor einfach ersetzen:

Delphi-Quellcode:

obj2 := TObject2.Create(obj1); // Konstruktor übernimmt alle Felder des Arguments
obj1.Free;
obj1 := obj2;

Wenn man die Vererbung weglässt und stattdessen in Richtung Decorator geht, kann obj1 auch beibelassen werden:

Delphi-Quellcode:

type TObject2 = class
  inner: TObject1;
  c: Integer;
end;
[...]
TForm2: obj2 := TObject2.Create(obj1);
// =>  obj1 <> obj2

@Jelly: It's Magic :mrgreen: ?

[GroHae]

Das geht schon

ObjX := TObject2.create "außerhalb" von Form1 und Form2 (Controller, Konfigurator oder wie du es nennen willst) erstellen und dann das Objekt in Form1 und Form2 rein reichen. Form1 und Form2 erzeugen also keine Instanz von Objekt1 oder Objekt2 sondern nutzen das Objekt.


In Tfrm1 kannst du dann sagen

TObject2(ObjX).C := 123;

Schöner ist natürlich wenn du bei sowas gleich mit Schnittstellen arbeitest.