Datei in StringList laden

[Uncle Cracker]

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]