Wie kann ich Dateien, in diesem Fall Musiktitel, in eine StringList laden, die sich in einem Ordner befinden.
Bisher habe ich folgende Funktion verwendet:
Delphi-Quellcode:
function Inhalt(Pfad, Maske: string; Pfadanzeigen: boolean): TStringlist;
var SRec: TSearchRec;
SL: TStringList;
begin
SL := TStringList.Create;
FindFirst(Pfad + Maske, not faDirectory, SRec);
if Pfadanzeigen then
SL.Add(Pfad + SRec.Name)
else
SL.Add(SRec.Name);
while FindNext(SRec) = 0 do
if Pfadanzeigen then
SL.Add(Pfad + SRec.Name)
else
SL.Add(SRec.Name);
FindClose(SRec);
Result := SL;
end;
Jedoch spinnt diese Funtkion, wenn die Titel z.B. "04 - Apocalyptica - Pray.mp3" heißen, denn wird der Name in einzelne Stücke zerlegt. Bei Namen wie "Apocalyptica.mp3" geht alles.
Vielleicht hat jemand eine andere Funktion, wie er Dateien sucht, denn ich kann den Fehler nicht finden.
Danke UC
[edit=Luckie]Delphi-Tags korrigiert. Mfg, Luckie[/edit]