Listbox mit Lieder füllen funktioniert nicht

[Metallicwar]

Also ich möchte gerne bei dieser Methode bleiben, nicht über API.

hab den geposteten Code von DeddyH ausprobiert und zusätzlich noch im FindFirst das Backslash eingebaut, Liste wird aber nach wie vor nicht gefüllt.

Delphi-Quellcode:

procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
  Rec : TSearchRec;
begin
  Assert(Assigned(sl));
  sl.BeginUpdate;
  try
    Folder := IncludeTrailingPathDelimiter(Folder);
    sl.Clear;
    if FindFirst(Folder + '/*.mp3', faAnyFile, Rec) = 0 then
      try
        repeat
          sl.Add(Rec.Name);
        until FindNext(Rec) <> 0;
      finally
        FindClose(Rec);
      end;
  finally
    sl.EndUpdate;
  end;
end;

Zitat:

FrankJ28:
Hallo,
bei mir funktioniert auch der OriginalCode..

hmn versteh ich nicht ...