MP3 Verwaltung

[shmia]

Dein Sourcecode:

Delphi-Quellcode:

procedure TPlaylistFo.FormShow(Sender: TObject);
begin
   if JvOpenDialog1.Execute then
   TRY
     Playlistfo.OpenPLS(JvOpenDialog1.Filename);
   EXCEPT
     ShowMessage ('Fehler beim Laden der Datei!');
   END;
end;

Mit deiner Fehlermeldung kann der Benutzer recht wenig anfangen.
Mein Vorschlag:

Delphi-Quellcode:

procedure TPlaylistFo.FormShow(Sender: TObject);
begin
   if JvOpenDialog1.Execute then
   TRY
     Playlistfo.OpenPLS(JvOpenDialog1.Filename);
   EXCEPT
      on E:Exception do
      begin
         E.Message := format('Fehler beim Öffnen der Playlist-Datei <%s>'#13#10, [JvOpenDialog1.Filename])+
            E.Message;
         raise;
      end;
   END;
end;

Jetzt weiss der Benutzer, welche Datei ein Problem macht und weiss ausserdem,
dass es sich um eine Playlist handelt.
Das folgende raise unterbricht den Programmfluss; das ist auf jeden Fall besser als ShowMessage().