Hallo
Vielleicht schon etwas alt, aber ich habe deine Frage erst jetzt gelesen.
Zitat:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Form1.OpenDialog1.Execute then
begin
try
form1.MediaPlayer1.FileName:= OpenDialog1.FileName;
finally
showmessage('Fehler');
end;
end;
end;
Dass Du nun bei jedem Lied eine Fehlermeldung bekommst ist klar, da der 'finally' Zweig IMMER ausgefuehrt wird.
Fuer deinen Zweck musst Du hier anstatt 'finally' die Direktive 'except' verwenden. Der Zweig wird dann nur im Fehlerfall ausgefuehrt.
Gruss
AnCorr