Kann so ein Speicherleck entstehen?

[AirJordan]

Hallo,

ich habe mal eine kleine Frage ob mit meinem Beispielcode ein Speicherleck entstehen kann,
weil eine TStringList nicht korrekt aus dem Speicher geräumt wird.

Folgende Funktion wurde definiert:

Delphi-Quellcode:

function TbvshOfficeHauptformular.GetVereineEmail: TStringList;
var iVereinsStr, iVereinsFuktionaer: String;
begin
  Result := TStringList.Create;
  try
   [..]
   SQL Abfrage auf die Datenbank
   [..]
   while not dmBVSH.sqlBVSHVereine.Eof do
   begin
     with [..] SQL Abfrage [..] do
     begin
       iVereinsStr := [..] String wird erstellt [..]
       Result.Add(iVereinsStr);
       Next;
     end;
   end;
end;

und die Funktion wird nun in der Procedure die ausgelöst wird, wenn der
Schalter im Programm gedrückt wird.

Delphi-Quellcode:

procedure TbvshOfficeHauptformular.dxBVSHNavBarGruppeUpdateVereineExportThunderbirdClick(Sender: TObject);
var slVereinsDaten: TStringList;

  procedure CreateVereineExportThunderbird;
  begin
    slVereinsDaten := GetVereineEmail;

    try
      slVereinsDaten.SaveToFile('.\Export\BVSHEmails.CSV'); //Datei speichern
    finally
      slVereinsDaten.Free; //Objekt wieder freigeben
    end;
    MessageDlg('>HinweisText<', mtInformation, [mbOK], 0);
  end;

begin
  if bvshSicherheit then
  begin
    if MessageDlg('>HinweisText<', mtConfirmation,[mbNo, mbYes], 0) = mrYes then CreateVereineExportThunderbird;
  end else CreateVereineExportThunderbird;
end;

Wird die StringList, die in der Procedure über die Funktion erstellt wird, auch korrekt freigegeben?
Danke für eure Hinweise.

[marabu]

Hallo Holger,

es hängt alles von der genauen Implementierung von GetVereineEmail ab. Wenn nach der Speicheranforderung im Konstruktor eine Exception geworfen wird, die in der Funktion nicht abschließend bearbeitet wird, dann erhält der aufrufende event handler nie die Kontrolle und die dortige Freigabe wird nie durchlaufen.

Grüße vom marabu

[AirJordan]

Hallo marabu,

ok habe ich verstanden. Wenn die SQL Abfrage aus irgendwelchen Gründe in´s Leere laufen würde,
dann würde die Free Routine nichts zum Freigeben haben und das Programm würde hängen oder
Ähnliches.

[3_of_8]

Free überprüft vor dem Aufruf von Destroy, ob was drin ist oder nicht. Das gibt keine Exception.

Es kann allerdings tatsächlich passieren, dass die Ausnahmebehandlungsroutine einfach so weit rausspringt, dass die StringList nie gefreet wird.

[Christian Seehase]

Moin Holger,

Zitat:

Zitat von AirJordan

Wenn die SQL Abfrage aus irgendwelchen Gründe in´s Leere laufen würde,dann würde die Free Routine nichts zum Freigeben

marabu meinte, wenn in GetVereineEmail nach dem Erzeugen der StringListe eine Exception auftritt, könnte es passieren, dass nicht mehr zu CreateVereineExportThunderbird zurückgesprungen wird, womit das slVereinsDaten.Free nie aufgerufen würde.

Erzeuge doch einfach die StringListe in CreateVereineExportThunderbird und übergebe sie dann als Parameter.

[AirJordan]

Hallo

und vielen Dank für die ausführlichen Antworten. Ich werde die Routine dann nochmal überarbeiten.