Destructor notwendig bei class?

[Alex_ITA01]

Hallo zusammen,
folgendes Beispiel:

Delphi-Quellcode:

  TMyData = record
    a   : Integer;
    b   : AnsiString;
    c   : TDateTime;
  end;

  TMyObject = class
    aData       : TMyData;
    constructor Create (NewData: TMyData);
    function GetString: AnsiString;
  end;

Delphi-Quellcode:

procedure DoAnything;
var
  NewObj : TMyObject;
  aNewData : TMyData;
begin
  aNewData.a := 99;
  aNewData.b := 'Hallo';
  aNewData.c := Now;
  NewObject := TMyObject.Create (aNewData);

  //das NewObject in eine TStringList packen und irgendwas damit machen...
end;

procedure AllesFreigeben;
var
  aObj : TMyObject;
begin
  //Schleife über die TStringList zum Freigeben der Objekte...
  for i := 0 to ....
  begin
    aObj := Liste.Objects[i] as TMyObject;
    if Assigned(aObj) then
    begin
      FreeAndNil(aObj);
    end;
  end;
end;

Nur ein Beispiel...
Muss ich ein destructor für meine Klasse machen und die Strings da irgendwie freigeben oder ist das alles gut so?

Gruß

[Bummi]

Die Liste muss ja auch irgendwo erzeigt und freigegeben werden ...
zusätzlich würde ich AllesFreigeben im Destruktor zusätzlich aufrufen, allerdings muss die Prozedur dann so umgebaut werden Liste.Objects[i] nach der Freigabe eines Objekts nil ist.

[Iwo Asnet]

Du musst keinen Destruktor angeben, wenn es nichts destruktives zu tun gibt.
@Bummi: 'AllesFreigeben' sowie 'Liste' sind keine Bestandteile der Klasse.

[Progman]

Für Objects würde ich aber keine TStringList verwenden, sondern eine TList.
AllesFreigeben würde ich nie in einer for-Schleife machen sondern:

Delphi-Quellcode:

procedure AllesFreigeben;
var
  aObj : TMyObject;
begin
  //Schleife über die TStringList zum Freigeben der Objekte...
  while Liste.Count > 0 do
  begin
    aObj := Liste.Objects[0] as TMyObject;
    if Assigned(aObj) then FreeAndNil(aObj);
    Liste.Delete(0); //auch Listeneintrag löschen
  end;
  //evtl. auch gleich Liste freigeben
  Liste.Free;
end;

Ein destructor ist nur dann zweckmäßig, wenn im Create des Objects etwas erzeugt wird, dass vor dem Freigeben des Objechts ebenfalls freigegeben werden muss.

[Bummi]

@Iwo Asnet

Danke, ich habe gepennt ...

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