Neue Version von FindAllFiles

[Luckie]

Könntest du mal bitte ein Beispiel machen, wie man deine Funktion anwendet?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl                     : TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    FindAllFiles(sl, 'd:\Dokumente', '*', True, True, True);
    for i := 0 to sl.Count - 1 do
    begin
      ListBox1.Items.Add((sl.Strings[i]));
    end;
  finally
    FreeAndnIl(sl);
  end;
end;

Das liefert mir nur die Unterordner in dem Root Ordner, aber wo sind die Dateien?
Und das:
FindAllFiles(sl, 'd:\Dokumente'); liefert mir gar nichts zurück.

Und wo werden die Objekte wieder zerstört / freigegeben?

Zitat:

The TStrings object does not own the objects you add this way. Objects added to the TStrings object still exist even if the TStrings instance is destroyed.
They must be explicitly destroyed by the application.

Finde ich etwas blöd, dass eine nicht von mir impelentierte Funktion Speicher belegt, ihn aber nicht wieder frei gibt.