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().