Destructor notwendig bei class?

[Iwo Asnet]

Zitat von Progman:

AllesFreigeben würde ich nie in einer for-Schleife machen sondern: (while schleife)

Wieso das denn? Das ist doch vollkommen überflüssig.

Delphi-Quellcode:

For i:=0 to List.Count - 1 do
  List[i].Free;

List.Free;

Reicht vollkommen, ist sicher, kurz, verständlich und sauber. Was will man mehr?

Ich würde für Objekte übrigens eine TObjectList geben und dann per

Delphi-Quellcode:

MyObjectList := TObjectList.Create(True);
...
MyObjectList.Free;

alles wieder freigeben. Das ist dann noch sicherer, kürzer, verständlicher und sauberer, sozusagen porentief

[spaxxn]

@Iwo: Das funktioniert, gebe ich Dir recht, aber ist mehr als unsauberer Stil.

[TiGü]

Zitat von spaxxn:

@Iwo: Das funktioniert, gebe ich Dir recht, aber ist mehr als unsauberer Stil.

Was ist die Begründung dafür?

[Iwo Asnet]

Zitat von spaxxn:

@Iwo: Das funktioniert, gebe ich Dir recht, aber ist mehr als unsauberer Stil.

Also das würde nun auch interessieren, was daran unsauber sein soll. Bisher war ich der Auffassung, das einfach, sicher, klar, minimalistisch und elegant 'sauberer Stil' ist. Aber bitte, liefere uns eine Begründung und ich lerne immer wieder gerne dazu.

Zum Beispiel der 'sauberen Lösung':
1. Wieso wird das Listenelement in eine lokale Variable?

2. Die Zeile  If Assigned (aObj) then FreeAndNil(aObj) ist redundant, dann die Prüfung auf NIL wird eh von FreeAndNil übernommen.

3. FreeAndnil ist überflüssig. Wozu eine lokale Kopie des Objektes mit 'FreeAndNil' freigeben, wenn sie im nächsten Schleifendurchlauf überschrieben wird?

4. Dann verstehe ich nicht, wieso immer das erste Element entfernt wird. Wenn ich mir schon so einen abbreche, dann doch wenigstens das letzte Element. Dann spare ich mir dann diese eine Zeile Liste.Delete(0) . Somit wird eine einfache Aufräumaktion zu einem Flaschenhals, denn die Aktion ist vom Aufwand O(n*n), wo doch O(n) reichen würde.

Also: So ziemlich jede Zeile ist aufgebläht und überflüssig.

Für mich ist das Schulungsmaterial, wie man etwas sehr Banales kompliziert umsetzen kann. Wesentlich komplizierter als in diesem Beispiel kann ich mir jedenfalls nicht vorstellen, eine Liste von Objekten inklusive Inhalt freizugeben.

So, und jetzt sag mir nochmal, wo der Stil bei meiner Variante 'unsauber' bzw. der andere Code so 'sauber' ist.

[spaxxn]

1. Ging es bei der Aussage nur um den Stil
2. Gibst du zwar jedes Objekt frei, dies allerdings indexbasiert. Löscht aber nicht im gleichen Zug den Index dazu aus der Liste. Dadurch sorgst du bewusst dafür, dass die Liste nicht mehr synchron, mit Elementen und darin enthalten Objekten, ist
3. Das Clear, das im Destruktor von TList aufgerufen wird, ist kein Freifahrtsschein dafür, sich nicht vernünftig um die Elemente der Liste, gerade beim Freigeben, zu kümmern
4. Wird das schon in der Vorlesung "Grundlagen der Informatik" gelehrt und ist in der Informatik allgemeingültig

Edit: Bei der TObjectList mit OwnsObjects = true, sieht die Sache im Übrigen schon anders aus, allerdings wird dort die virtuelle Methode Notify überschrieben und sorgt dort dann für jedes einzelne Element der Liste auch für die Freigabe des Objektes.

[Blup]

Zitat:

1. Ging es bei der Aussage nur um den Stil

Stil ist subjektiv, ich finde den Stil von Iwo Asnet besser.

Zitat:

2. Gibst du zwar jedes Objekt frei, dies allerdings indexbasiert. Löscht aber nicht im gleichen Zug den Index dazu aus der Liste. Dadurch sorgst du bewusst dafür, dass die Liste nicht mehr synchron, mit Elementen und darin enthalten Objekten, ist

Das ist auch nicht notwendig und solche Zustände sind im Programmablauf nur schwer zu vermeiden.
Das selbe Problem zwischen diesen beiden Zeilen in deinem Code:

Delphi-Quellcode:

    if Assigned(aObj) then FreeAndNil(aObj);
    Liste.Delete(0); //auch Listeneintrag löschen

Am Ende der Methode ist ein definierter Zustand erreicht, das ist wichtig.

Zitat:

3. Das Clear, das im Destruktor von TList aufgerufen wird, ist kein Freifahrtsschein dafür, sich nicht vernünftig um die Elemente der Liste, gerade beim Freigeben, zu kümmern

Hat niemand behauptet.

Zitat:

4. Wird das schon in der Vorlesung "Grundlagen der Informatik" gelehrt und ist in der Informatik allgemeingültig

Was meinst du mit "das"?

Wer so was lehrt, hat Schläge verdient:

if Assigned(aObj) then FreeAndNil(aObj);

[spaxxn]

Zitat von Blup:

if Assigned(aObj) then FreeAndNil(aObj);

Wo habe ich mich darauf bezogen?

Lies mal lieber den Thread nochmal...

[DeddyH]

Könnte man mit so etwas leben (ich bin hier von der eingangs erwähnten Stringliste ausgegangen)?

Delphi-Quellcode:

procedure AllesFreigeben;
var
  i: integer;
begin
  for i := Liste.Count - 1 downto 0 do
    begin
      (Liste.Objects[i] as TMyObject).Free;
      (* die folgende Zeile macht eigentlich nur Sinn, 
         wenn die Liste an sich noch nicht freigegeben werden soll *)
      Liste.Delete(i);
    end;
  Liste.Free; //s.o.
end;

[spaxxn]

[QUOTE=Blup;1170692]

Zitat:

Das ist auch nicht notwendig und solche Zustände sind im Programmablauf nur schwer zu vermeiden.

Ich finde auch, dass ich mir zukünftig die Kontrolle über verwendeten Speicher sparen sollte. Dann wäre ich schneller fertig.

[Progman]

Ich verstehe die ganze Diskussion nicht!
Ich habe nun mal 1985 mit Programmieren begonnen.
Und zwar mit ASM, dBase über Turbo Pascal und dann Delphi (2, 3, 4, 6, 2007).
Ich habe einfach gelernt, dass man bei Arbeit mit Objects alles was man selbst erzeugt auch selbst wieder freizugeben hat. Und diesen Stil behalte ich bis heute bei und habe damit nie unliebsame Überaschungen erlebt. Außerdem kann ich im Quelltext sehen, was geschieht. Es ist "lesbar" was passiert.
Ich weiß nicht, ob bei Freigabe einer TList auch alle in ihr enthaltenen Objects sauber freigegeben werden. Das kann nämlich in den verschiedenen Delphi-Versionen sehr unterschiedlich sein. Also mache ich das eben "von Hand"
Und wenn Anfänger das erstmal so lernen, sind sie immerhin auf der sicheren Seite zur sauberen Programmierung, weil das, was geschieht, auch anschaulich im Quellcode zu lesen ist.
Und im Übrigen ist es mir eigentlich egal, wie jemand meinen Programmierstil findet *g*
Ich habe im Laufe der letzten Jahre genug Programme geschrieben, von denen einige sogar in recht großen Stückzahlen verkauft wurden und sich dadurch auszeichnen, dass sie auf allen Systemen (ab XP aufwärts bis Win8) funktionieren.
Mein Delphi 2007 bleibt übrigens auch mein letztes Delphi. XE kommt für mich nicht mehr in Frage, da ich seit Januar Rentner bin und meine Tätigkeit stark einschränke