Wo ist mein Fehler? Kann mir jemand helfen?
Delphi-Quellcode:
// Cover zum jeweiligen Lied
procedure TForm1.Timer1Timer(Sender: TObject);
var
Filename : string;
begin
if Listbox3.ItemIndex >= 0 then
begin
Filename := Listbox3.Items.Strings[Listbox3.ItemIndex];
if Fileexists(ExtractFilePath(Filename) + 'folder.jpg')then
Label14.Caption := '';
Image1.Picture.LoadFromFile(ExtractFilePath(Filename) + 'folder.jpg')
else Label14.Caption := 'NO COVER AVAILABLE'
end;
end;
Das else ist irgendwie falsch und in einer einfacheren Version "blinkte" das Bild ständig.