Ein Objekt zu Laufzeit die Klasse zuweisen

[Popov]

Ich hab ein etwas sonderbares Problem, bin mir aber sicher, dass es irgendwie zu realisieren geht. Nur fehlt mir hier etwas Wissen.

Ich beschreibe das Problem etwas vereinfacht: ich erstelle ein Objekt in einer Prozedur und gebe das Objekt in einer zweiten Prozedur frei. Soweit nichts besonderes, das Problem liegt aber im Detail.

Ich beschreibe das Problem etwas genauer: ich erstelle in einer Prozedur ein beliebiges Objekt und übergebe es an ein TStrings Item. Beim löschen des Items in der zweiten Prozedur gebe ich zuerst das Objekt frei und lösche dann erst das Item. Das ist die normale Vorgehensweise, also immer noch nichts besonderes.

Das Problem ist aber, dass das Objekt in der ersten Prozedur mal dieses, mal jenes sein kann. Ich muß also in der zweiten Prozedur den Typ immer anpassen. Das möchte ich mir sparen. Ich würde das gerne automatisieren wenn es geht. Nur bisherige Versuche schlugen fehl.

Ich kann doch den Objekttyp aus dem Item auslesen. Wie kann ich also zu Laufzeit den Objekttyp einer Variable ändern?

Letztendlich geht es um sowas in der Art:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
  Tmp: TMyObj;
begin
  with ListBox1 do
    for i := 0 to Items.Count - 1 do
    begin
      Tmp:= TMyObj(Items.Objects[i]);
      Tmp.Free;
    end;
end;

Kann ich Tmp als Objekttyp zu Laufzeit anpassen?

[DeddyH]

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1 do
  ListBox1.Items.Objects[i].Free;

Das sollte doch vollkommen ausreichen, das Objekt dürfte ja seinen eigenen Destruktor kennen.

[jfheins]

Was hält dich davon ab, das hier zu tun?

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  with ListBox1 do
    for i := 0 to Items.Count - 1 do
      Items.Objects[i].Free;
end;

Manchmal sind die Dinge einfacher als gedacht :wink:

[daywalker9]

Oder einfach OwnsObjects der Items auf True setzen.

[DeddyH]

Das gibt es IIRC aber erst seit Delphi XE.

[nuclearping]

Über Generics könnte man das im schlimmsten Fall auch noch lösen. :mrgreen:

[Sir Rufo]

Aber wozu sollten einem die Generics helfen? Beim Freigen einer beliebigen Instanz?
Einfach freigen und gut, egal was das für eine Instanz ist (wenn es eine Instanz ist)

[Popov]

Ok, in dem einem speziellem Fall scheint es wirklich einfacher zu sein als gedacht. Da habe ich anscheinend beim überlegen paar Ebenen übersprungen und erst an einem Punkt in der Mitte angefangen. Das ist um so erstaunlicher, da ich beim testen eigentlich auch schon soweit war, nur dem Ganzen nicht getraut habe, weil es für mich zu einfach war. Ich dachte es funktioniert nur zufällig. Bisher auf jeden Fall danke.

Trotzdem interessiert mich das Prinzip im allgemeinem. Jetzt weniger um ein Problem zu lösen als um die Machbarkeit festzustellen.

[Sir Rufo]

Es ist auf jeden Fall nicht möglich eine Instanz auf eine andere Klasse umzustellen.
z.B. eine TStringList auf ein TButton

[Zacherl]

Erstell dir eine Basisklasse und deklariere den constructor und destructor als virtual. Wenn du dann bei den konkreten Objekten die Methoden überschreibst, wird automatisch die richtige Funktion ausgeführt. Sind die Methoden nicht virtual, dann wird bei diesem Beispiel nur die Funktion der Basisklasse in Betracht gezogen.

[sakura]

Zitat:

Zitat von Zacherl (Beitrag 1186924)

Erstell dir eine Basisklasse und deklariere den constructor und destructor als virtual.

Der Destructor ist schon ab TObject virtual ;) Nix zu tun und für jedes Objekt verfügbar. Ebenso wie Free.

...:cat:...

[Popov]

Zitat:

Zitat von Sir Rufo (Beitrag 1186922)

Es ist auf jeden Fall nicht möglich eine Instanz auf eine andere Klasse umzustellen.
z.B. eine TStringList auf ein TButton

Mir ist auch klar, dass ich aus einer TStringList keinen TButton machen kann. Aber das will ich auch nicht, denn der Button ist ja eigentlich schon da. Ich will der Objektvariable nur sagen, dass sie jetzt nicht mehr TStringList ist, sondern TButton. Ist wie beim Autoverkauf, das Auto ist da, es wechselt nur der Besitzer. Der TButtom ist im Speicher, ich weiß, dass es ein TButton ist und ich hab auch seine Adresse. Denn seinen wir mal ehrlich, eine Objektvariable ist eigentlich nur ein Integerwert mit der Adresse. Dem ist es eigentlich Schnuppe ob es ein TStringList ist oder ein TButton. Nur wurde eben irgendwo vermerkt, das die Objektvariable ein TStringList. Und die Frage ist ob man das ändern kann.

@Zacherl

Wäre evtl. möglich, aber dann fängt es an wieder komplex zu werden.

[Sir Rufo]

Dann hast du - entschuldige bitte - aber die Frage völlig falsch gestellt.
Denn du willst einer Objektvariablen zur Laufzeit eine andere Instanzreferenz zuweisen und nicht einem Objekt eine Klasse ;)

Und wo ist das Problem?

Um ganz sicher zu gehen, dass es funktioniert, definiere die Variable als TObject, dann kann dort jede Instanz-Referenz abgelegt werden, die von TObject abgeleitet wurde (also jede)
Ok, per hartem Cast kann man auch alles machen, ist aber nicht ratsam.

Wo ist denn das eigentliche Problem?

Zeig doch mal ein wenig Code, wo du da ein Problem siehst.

EDIT hmmm, suchst du so etwas wie das Visitor Pattern? Schau mal beim Uwe Raabe auf der Blogseite rein, der hat da in 4 Teilen etwas sehr kreatives abgeliefert

[Popov]

Das eigentlich Problem ist, dass nichts bisher funktionierte was ich getestet habe. Vielleicht liegt das Problem im Detail. Ich mache noch paar Versuche.

//Edit:

Nein, es funktioniert doch nicht. Wie gesagt, anscheinend habe ich beim ersten Mal das Problem richtig beschrieben, beim zweiten Mal zu Missverständnissen geführt.

Aber letztendlich ist es egal, es war eher nur eine Idee und eine Frage der Machbarkeit. Kein eigentliches Problem, mehr Interesse. Aber wenn ich gerade so überlege, dann kann das nicht klappen. Selbst wenn es klappen würde, wahrscheinlich würde der Compiler es nicht mitmachen. Wenn ich z.B. Tmp.Canvas im Code eingebe, dann macht er das beim falschen Objekt sowieso nicht mit.

[Sir Rufo]

Zitat:

Zitat von Popov (Beitrag 1186932)

Das eigentlich Problem ist, dass nichts bisher funktionierte was ich getestet habe. Vielleicht liegt das Problem im Detail. Ich mache noch paar Versuche.

Wenn du uns - oder mir - mal erklären würdest, was du denn wirklich machen möchtest, dann erhöhen sich die Chancen schlagartig. Mir ist es auf jeden Fall noch nicht ganz klar

Möchtest du evtl. in dieser Richtung?

Delphi-Quellcode:

procedure DoSomething( AInstance : TObject );
begin
  ...
end;

Übergibst du eine TButton Instanz, soll die Caption geändert werden, übergibst du eine Instanz von TStringList, dann soll der Inhalt gelöscht werden.

Suchst du sowas in der Art?

[Popov]

Wie gesagt, inzwischen gehe ich davon aus, dass es nicht klappen kann. Aber ich beschreibe man meine Überlegungen noch mal mit meinen Beispiel aus dem ersten Beitrag (nur der Vollständigkeitshalber).

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
  Tmp: T???;
begin
  with ListBox1 do
    for i := 0 to Items.Count - 1 do
    begin
//An jedem Item hängt ein Objekt, nehmen wir an es ist ein TBitmap, aber ich weiß es nicht
//Nun stellt sich die Frage ob ich Tmp im Betrieb zu dem Objekttyp machen kann der 
//am Item hängt. Also ermitteln, dass es TBitmap ist und Tmp zu TBitmap machen
      Tmp:= T???(Items.Objects[i]);
//Das Free ist hier Sekundär und nur ein Beispiel. Das wird auch so klappen, da es jedes Objekt besitzt
//Aber um das geht es weniger, sondern kann ich Tmp zuerst zu TBitmap machen und 
//es erst dann freigebe
      Tmp.Free;
    end;
end;

Wie gesagt, mich interessierte es nur ob das geht.

//Edit:

Oder anders ausgedrückt

Delphi-Quellcode:

  (Tmp as TBitmap)
  ..

nur das ich die Info TBitmap aus dem Objekt an dem Item erfahre.

[Sir Rufo]

Da es nur Sinn macht den Typen zu erfahren, wenn mit diesem Objekt etwas klassenspezifisches machen möchte (also z.B. der TBitmap-Instanz ein Bild zuweisen), denn ansonsten wäre der Typ egal, bzw. man muss nicht immer den ganz konkreten Typen wissen, wenn die geplante Aktion auch schon ein paar Klassen vorher implementiert ist/ansprechbar ist (z.B. die Eigenschaft Tag wird von TComponent eingeführt, darum müsste ich nicht auf TButton prüfen um das Tag zu setzen)

Also ist meine Vermutung schon richtig gewesen, dass du einen Visitor haben möchtest ;)

Hier der Link zum Blog von Uwe Visitor Pattern Teil 4

[Bummi]

Nur um sicher zu gehen, dass das Objekt weiß was es ist weißt Du?

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  Listbox1.Items.AddObject('',TButton.Create(self));
  Listbox1.Items.AddObject('',TListbox.Create(self));
  Listbox1.Items.AddObject('',TBitmap.Create);

end;

procedure TForm3.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

    ListBox1.Canvas.FillRect(rect);        ListBox1.Canvas.TextOut(rect.Left,rect.Top,ListBox1.Items.Objects[index].ClassName);

end;

[Furtbichler]

Zitat:

Zitat von Sir Rufo (Beitrag 1186922)

Es ist auf jeden Fall nicht möglich eine Instanz auf eine andere Klasse umzustellen.
z.B. eine TStringList auf ein TButton

Aber eine TStringList auf eine abgeleitete Klasse.

Delphi-Quellcode:

type
  PClass = ^TClass;
begin
  if MyObject is TBaseObject then
    PClass(MyObject)^ := TDerivedObject;
...
end