Hallo, ich habe ein Problem:
Ich speichere eine TStringliste mit Dateinamen inkl. Pfad in eine Playlist.lst ab.
Beim nächsten Programmstart lädt er die Strings wieder ein.
Jetzt möchte ich beim einladen der Liste feststellen, ob die hinterlegten Dateien noch existieren und wenn nicht, sollen diese aus der Liste gelöscht werden, den restlichen Dateien werden die Pfade gekappt und der sichtbaren Listbox zugeführt.
Kann da jemand helfen?
Delphi-Quellcode:
procedure Tmediaplayer_frm.FormActivate(Sender: TObject);
var i:integer;
begin
if config_frm.playlist_load_select.Checked = true then
begin
if FileExists(ProgrammPfad + '\PlayList.lst')then
begin
PlayList.LoadFromFile(ProgrammPfad + '\PlayList.lst');
For i:=0 to PlayList.Count-1 do
//if FileExists(PlayList.Strings[i]) then
//Playlist.Delete(i);
//else
PlayList_ListBox.Items.Add(ExtractFileName(PlayList[i]));
end
else
end;
end;