Hat auch nicht geholfen, deswegen habe ich es nochmal probiert und jetzt geht's.
Ich weiß zwar nicht wo der Fehler lag, aber so funktioniert es:
Code:
var
SRec: TSearchRec;
Stl: TStrings;
begin
Stl := TStringList.Create;
try
FindFirst('C:\MP3\*.*', not faDirectory, SRec);
Stl.Add(SRec.Name);
while FindNext(SRec) = 0 do
Stl.Add(SRec.Name);
FindClose(SRec);
ListBox1.Items.AddStrings(Stl)
finally
Stl.Free;
end;
end;
Jetzt werden alle Dateien eines Ordners in eine Stringlist geladen und man kann sie dann in eine Listbox laden oder mit der Stringlist weiter arbeiten.