Destructor notwendig bei class?

[BUG]

Zitat von Iwo Asnet:

Du musst natürlich verstehen, was ein MeineObjektListe.Clear macht.

Vorschlag zur Güte: (für andere Entwickler) möglicherweise überraschende Effekte kommentieren und/oder OwsObjects explizit setzten.

Delphi-Quellcode:

MeineObjektListe.OwnsObjects = true;
// ...
MeineObjektListe.Clear(); // gibt Listenelemente frei!

[Alex_ITA01]

Mensch, da habe ich ja eine Diskussion angestoßen

Meine Frage ist jetzt dann folgende:
Was ist schneller/"effektiver" wenn ich das Objekt und den Listeneintrag löschen möchte?

Eine while Schleife über die ganze Liste und jedes Objekt freigeben und immer Liste.Delete(0) aufrufen (führt meines erachtens nach immer zum aufrücken der restlichen Objekte in der Liste)

oder

Eine for Schleife über die ganze Liste vom Anfang bis Ende der Liste und jedes freigeben und am Ende Liste.clear aufrufen?

Gruß

[Furtbichler]

Ich würde definieren, was implementiert werden soll:
1. Gib ein Element frei und entferne es aus der Liste.
2. Gib alle Elemente frei und lösche den Inhalt der Liste.

Für beide Methoden gilt die Eingangsbedingung: "Alle Elemente der Liste sind Instanzen gültiger Objekte". Dies ist gleichzeitig die Ausgangsbedingung, frei nach Sepp Herrberger: "Nach dem Spiel ist vor dem Spiel".

Salopp ausgedrückt: Wenn die Liste vorher 'sauber' war, muss sie es hinterher auch sein. Innerhalb der Methode wird diese Bedingung immer irgendwie verletzt werden. Dies ist jedoch nur dann von Bedeutung, wenn die Liste threadsicher implementiert werden soll. Aber dann umschließt man die Operationen mit einem kritischen Abschnitt.

Wichtig ist bei der Implementierung, das die vorher vereinbarten Bedingungen (Design by Contract) eingehalten werden.

Delphi-Quellcode:

(* Kein Original-Delphi, eher Pseudocode ohne Schnick-Schnack*)
Procedure TMyList.RemoveElement(Element : TObject);
Begin
  Assert (InnerList.IndexOf(Element)>=0,'Element is not a member of the list');
  InnerList.Remove(Element);
  Element.Free;
End;

Procedure TMyList.RemoveAllElements;
Var
  element : TObject;

Begin
  Foreach element in InnerList do element.Free;
  InnerList.Clear;
End;

Die TObjectList macht auch nichts anderes.

Leute, aber das ist sowas von banal. Das man sich darüber überhaupt in diesem Forum unterhält, ist schon grenzwertig. Wie lange braucht man dann für ein Projekt, wenn man sich schon bei diesem Kindercode nicht sicher ist?

[Progman]

Kleiner Hinweis: In älteren Delphi-Versionen (incl. Delphi 2007) gibt es kein Foreach.
Man darf nicht immer nur sich und seine superneue Delphi-Version als Maßstab nehmen
Aber ich werd wohl in diesem Forum lieber nichts mehr schreiben, da man hier schreiben kann was man will, es treten immer irgendwelche Meckerer auf den Plan, die natürlich ALLES viel besser wissen und können....

[Iwo Asnet]

Zitat von Progman:

Kleiner Hinweis: In älteren Delphi-Versionen (incl. Delphi 2007) gibt es kein Foreach.

Zitat von Furtbichler:

(* Kein Original-Delphi, eher Pseudocode ohne Schnick-Schnack*)

Wer lesen kann... usw, und afaik gibt es selbst in Delphi XE3 kein Foreach. Dort wäre es 'For', aber darum geht es eh nicht.

Zitat von Progman:

Aber ich werd wohl in diesem Forum lieber nichts mehr schreiben, da man hier schreiben kann was man will, es treten immer irgendwelche Meckerer auf den Plan, die natürlich ALLES viel besser wissen und können....

So so, jemand mit einer anderen Meinung (oder mehr Ahnung) ist also ein 'Meckerer'. Komische Sichtweise.

Du hast deine Sichtweise dargelegt ("lieber auf die altmodische Tour aber [für Dich] auf Nummer sicher") und dagegen ist nichts einzuwenden. Man wird aber wohl noch auf die Scheuklappen aufmerksam machen dürfen, die man meint, bei dir zu sehen, oder?