Hallo, ich bin gerade dabei einen MP3 Player zu programmieren.
Ich wähle in einem BrowseDialog einen Musikordner aus:
Delphi-Quellcode:
procedure TForm1.btnOpenFolderClick(Sender: TObject);
var mp3Folder : string;
begin
mp3Folder := BrowseDialog('Wähle einen Ordner mit Liedern aus:', BIF_RETURNONLYFSDIRS);
if mp3Folder = '' then Exit;
txtFolder.Caption := mp3Folder;
MP3ListeFuellen(mp3Folder, mp3List.Items);
end;
zum Schluss wird die function MP3ListeFuellen aufgerufen...
Delphi-Quellcode:
procedure MP3ListeFuellen(Folder: string; sl: TStrings);
var
Rec : TSearchRec;
mp3List: TListBox;
begin
sl.Clear;
if SysUtils.FindFirst(Folder + '*.mp3', faAnyFile, Rec) = 0 then
try
repeat
sl.Add(Rec.Name);
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;
er durchläuft die Schleife, füllt mir aber nicht die ListBox ..
Kann mir bitte jemand helfen?