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

[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.

[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.