Ein Object in mehreren Listen

[MondiBob]

Hallo erst mal,

wie der Titel schon sagt, möchte ich ein Object in verschiedenen Listen verwalten. Wie das Beispiel zeigt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  list1.Add(TObject.Create);
  list2.Add(list1.Last);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  list1 := TObjectList.Create;
  list2 := TObjectList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  list1.Free;
  list2.Free;
end;

Solange ich kein Object erzeuge gibt es natürlich kein Problem, sobald aber mindestens ein neues Object erstellt wurde gibt es einen Fehler, sobald das Programm geschlossen wird. Ist ja eigentlich auch logisch, da ich das gleiche Object 2mal freigeben möchte.

Wie kann ich also diese Problem umgehen?

Gruß MondiBob

[mkinzler]

Es darf nur eine Liste die Objekte besitzen (.OwnsObjects)

[MondiBob]

Vielen Dank, funktioniert perfekt

[FredlFesl]

Kann man den Destruktor eigentlich irgendwie abbrechen?
Also sowas wie:

Delphi-Quellcode:

Destruktor TMyObject.Destroy;
Begin
  Dec (fRefCount);
  if fRefCount>0 Then Abort;
End;

Klar, SOO natürlich nicht. Aber irgendwie anders?

[DeddyH]

Ich habe das zwar noch nie versucht bzw. gebraucht, aber möglicherweise so:

Delphi-Quellcode:

destructor TDings.Destroy;
begin
  if AllesOK then
    begin
      MachSauber;
      inherited;
    end;
end;

Nur: wozu soll das gut sein, wenn ich Free aufrufe, gehe ich davon aus, dass das Objekt danach auch garantiert freigegeben ist.

[rollstuhlfahrer]

Dazu müsstest du dir eine eigene Methode schreiben, die dann .Free aufruft. Der Destructor zerstört im Normalfall auch das Objekt, wenn kein inherited aufgerufen wird. Also das Objekt ist dann wirklich weg.

Bernhard

[himitsu]

Bezüglich dem Destroy ... schaut euch mal ein Singleton-Pattern an.

[Namenloser]

Zitat von FredlFesl:

Kann man den Destruktor eigentlich irgendwie abbrechen?
Also sowas wie:

Delphi-Quellcode:

Destruktor TMyObject.Destroy;
Begin
  Dec (fRefCount);
  if fRefCount>0 Then Abort;
End;

Klar, SOO natürlich nicht. Aber irgendwie anders?

Kann man sicher irgendwie hinfrickeln, würde ich aber nicht empfehlen. Du könntest aber statt Objekten Interfaces nehmen, die haben eine Referenzzählung.