Brauche Hilfe bei der Fehlersuche.

[HHennig]

Zitat:

Dann habe ich da wohl ein Verständnisproblem.
Ich dachte, das ich, wenn ich eine StringList zurückliefere, diese auch in eine StringList Übergeben muss.

Das ist auch grundsätzlich korrekt, nur brauchst/darfst du die Stringlist nicht vorher erzeugen, denn das macht ja deine Funktion.

Wie aber gubbe schon sagte, sehr gefährlich das richtig frei zugeben!
Besser:

Delphi-Quellcode:

var
  MyStringList: TStringList;

begin
  MyStringList := TStringList.Create;
  try
    MeineProc(MyStringList);
    // Weitere Anweisungen mit der gefüllten Stringlist
    ...

  finally
    MyStringList.Free; // reicht aus
  end;
end;

so ungefähr

Ich sehe gerade, das hatte gubbe auch schon (besser) geschrieben...

[Beach]

Zitat von gubbe:

[...]Eindeutiger ist es, eine Stringliste als Übergabeparameter der Funktion zu deklarieren.

Code:

StrListCalc := TStringList.Create;
ZeissCFG.BuildNewFile(StrListCalc, CFGValues, ValuesX, ValuesY, ValuesZ, DataLoaded);
...
StrListCalc.Free;

[...]

Ich glaube das war es jetzt.
Habe das so umgebaut und bei mehreren Tests war das Ergebnis jeweils "0 unfreed Memory Blocks"
Und was neues gelernt habe ich dabei auch.

Eine Frage noch.
Wann nutze ich FreeAndNil() und wann .Free ?

Vielen Dank an alle. Nun kann ich weiter basteln.
Die nächsten Fragen kommen bestimmt

[HHennig]

nur Free machst du, wenn wie in meinem Beispiel die Objektvariable lokal angelegt wurde. Nach dem Verlassen des Blocks ist sie automatisch undefiniert (und ihr Speicher verloren, wenn nicht vorher freigegeben!)
FreeAndNil wenn nicht ganz klar ist, ob die Objektvariable evtl. nach der Freigabe noch irgendwo verwendet werden könnte. Wenn man dann vor jeder Verwendung auf nil abprüft, sollten ungültige Zugriffe (weil die Variable schon zerstört wurde) weitgehend ausgeschlossen sein.

[haentschman]

Moin...

Zitat:

Eindeutiger ist es, eine Stringliste als Übergabeparameter der Funktion zu deklarieren.

...nicht unbedingt. Aus dem Namen sollte hervorgehen, das ein Objekt (in diesen Falle eine TStringList) erzeugt wird.
Bsp:
function CreateAndFillBlubbList(Bla: Integer): TStringList;

[Luckie]

Zitat:

FreeAndNil wenn nicht ganz klar ist, ob die Objektvariable evtl. nach der Freigabe noch irgendwo verwendet werden könnte

Und wenn du an diesen Punkt bist, weißt du, dass du schlechten Code geschrieben hast. Wenn man sauber programmiert, ist FreeAndNil nicht nötig.

[Rolf Frei]

Zitat von Beach:

Ich glaube das war es jetzt.
Habe das so umgebaut und bei mehreren Tests war das Ergebnis jeweils "0 unfreed Memory Blocks"
Und was neues gelernt habe ich dabei auch.

Noch um es dir klar zu machen wieso das nicht ging:

Eine Delphiklassenvariable ist im Prinzip ein Pointer auf einen Speicherbereich, in dem die Klasse erzeugt wurde. Wenn du nun also in deiner Funktion eine weitere Stringlist erstellst, wird diese einen anderen Speicherbereich haben, also ein neuer Pointer darauf. Durch die Rückgabe dieser erzeugten Klasse, gibst du also nicht den Speicherinhalt zurück, sondern den Pointer auf diesen Speicher. Damit ist deine ausserhalb der Funktion erstellte Variable nicht mehr ein Pointer auf diese Klasse, sondern hat nun den Pointer aus der Funktion zugewiesen. Sie sieht also nun das Objekt der in der Funktion erzeugten Stringlist. Der vorherige Pointer dieser Variable ist nun verloren und der allozierte Speicher kann nicht mehr freigegeben werden, da nun dein Free die in der Funktion erzeugte Klasse freigibt und nicht die erste.

Gewöhn dir aber bitte an, wann immer du ein Objekt erstellst, dieses mit einem try/finally zu schützen. Nur so wird deine Klasse sauber freigeben, wenn innerhalb des Create und Free eine Exception auftritt.

Delphi-Quellcode:

x := TMeinObjekt.Create;
try
  x.TueIrgendwas;
finally
  x.Free; // Kannst auch FreeAndNil verwenden. Ist im prinzip das Selbe, nur dass danach x = nil ist.
end;

[hoika]

Hallo,

Zitat:

Kannst auch FreeAndNil verwenden. Ist im prinzip das Selbe, nur dass danach x = nil ist.

Nicht ganz.

Folgendes geht:
FreeAndNil(x);
FreeAndNil(x);

Folgendes nicht:
x.Free;
x.Free;

FreeAndNil prüft, ob die Variable nicht bereits schon nil ist.

[gubbe]

Zitat von hoika:

FreeAndNil prüft, ob die Variable nicht bereits schon nil ist.

Das macht Free auch.