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.