Funktion mit eine Liste :TStrings

[Karstadt]

Delphi-Quellcode:

Function Tf_hauptfenster.GibLagerListe: TStrings;
var Lagerliste: TStrings;
begin
  Lagerliste := TStringList.Create;
  with dm.mqr_TEMP do
  begin
    Close;
    Sql.Clear;
    sql.Add('SELECT * FROM lager ORDER BY lg_bezeichnung ASC');
    open;
    While not Eof do
    begin
      Lagerliste.Add(Fieldbyname('lg_bezeichnung').asstring);
      next;
    end;
    close;
  end;
  Result := Lagerliste;
  //Lagerliste.Free;
end;

So lade ich die Lagerliste in eine TCombPox Componente. Wenn ich aber diese Zeile ( //Lagerliste.Free Ausdokumentiere um die Varialbe Lagerliste aus dem Speicher zu entfernen, bekomme ich beim Aufruf dieser Funktion eine Zugriffsverlestzung. Weil ich die Lagerliste aus dem Speicher entnommen haben. Aber Warum ich habe doch den Inhalt davor an ReSult übergeben..