Frage zu .free bei Klassen

[Wuaegner]

Ich habe eine Klasse TStringManager, die unter anderem das hier enthält:

Delphi-Quellcode:

type
  TStringManager = class(TObject)     // Kapselt
  private                             // Stringverarbeitung
   FNummernListe : TStringlist;       // Liste aller Nummern
   FOrteListe: TStringList;
   FDatumsListe: TStringList;         // Liste aller Daten
   
   procedure Initialize;              // Listen werden erstellt
   procedure Close;

Initialize erzeugt die Listen, z.B FNummernListe:= TStringList.Create;
In der Prozedur Close; wollte ich nich diese Listen wieder freigeben mit FNummernListe.Free usw.

Im OnCreate meiner Form wird StrMg:= TStringManager.Create; aufgerufen und im OnClose meiner Form:

Delphi-Quellcode:

StrMg.Close;   // <== Ist das hier nötig, die Listen innerhalb der Klasse zu löschen oder 
        StrMg.Free;    // reicht diese Zeile ?

Lasse ich StrMg.Close nämlich weg geht es ohne Fehlermeldung, mit der Zeile kommt eine AV.

[Dax]

Tu dein Zeug in den Constructor und den Destructor, dann hast du wenigstens was davon und musst nicht ewig oft mit diesen sinnlosen Extramethoden rumfummeln.

[Wuaegner]

Kannst du posten wie das dann aussähe?

[Dax]

Delphi-Quellcode:

type
  TStringManager = class
  private
    {Felder}
  public
    constructor Create;
    destructor Destroy; override;
  end;

constructor TStringManager.Create;
begin
  // Felder erstellen
  // also der Initialize-Code
end;

destructor TStringManager.Destroy;
begin
  // der Close-Code
  inherited;
end;

Das sollte man als OOPer aber wissen.

[Wuaegner]

Habe noch nicht viel Erfahrung mit OOP , drum danke.

[Wuaegner]

Ok habe es jetzt so gemacht, das Problem besteht aber weiterhin.
Muss ich im destructor die einzelnen Listen ".free" en oder nicht? Wenn ich es mache kommt eine AV, wenn nicht geht es.

[Dax]

Wurden die Listen vielleicht schon vorher freigegeben, oder verwendest du vielleicht sogar ein nicht instanziiertes Objekt? Anders ist dieses Verhalten nicht erklärbar.

Tip: Statt .Free lieber FreeAndNil nehmen ;) Tut nix anderes, aber ein erneutes Free dafür nix mehr, also keine AVs (falls es daran lag)

[Wuaegner]

Verwende jetzt FreeAndNil() aber der Fehler kommt immernoch. Es muss also daran liegen

Zitat:

ein nicht instanziiertes Objekt?

Ich erzeuge die Listen mit liste:= TStringList.Create; , füge mit Add() neue Items hinzu und lösche wieder welche usw. , muss ich noch etwas beachten?

[malo]

Zitat:

Zitat von Dax

Tip: Statt .Free lieber FreeAndNil nehmen ;) Tut nix anderes, aber ein erneutes Free dafür nix mehr, also keine AVs (falls es daran lag)

Naja, der Unterschied von FreeAndNil zu .Free ist ja, dass bei FreeAndNil das Objekt freigegeben und die Zeiger auf Nil gesetzt werden (wie der Name schon sagt). Also entspricht FreeAndNil folgemdem Code:

Delphi-Quellcode:

MyObj.Free;
MyObj := nil;

Ob man jetzt die entsprechende Prozedur nutzt oder es selbst macht (oder den Destructor verwendet) bleibt jedem selbst überlaseen.

[Dax]

Ein bisschen mehr Code könnte ein bisschen mehr helfen ;) Oder ist dein Projekt fürs Militär? :mrgreen: