Mediaplayer Firemonkey

[hathor]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   MediaPlayer1.FileName:= OpenDialog1.Filename;
   MediaPlayer1.Play;
   FormResize(Self);
end;

[mkinzler]

Besser

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName:= OpenDialog1.Filename;
    MediaPlayer1.Play;
    FormResize(Self);
  end;
end;

Sonst wird ein Teil des Codes auch ausgehührt wenn der Dialog abgebrochen wird.

[hathor]

Typisch "Flüchtigkeitsfehler". Alles klar, danke!

[mkinzler]

Zitat von hathor:

Typisch "Flüchtigkeitsfehler". Alles klar, danke!

Das habe ich mir gedacht.

[hathor]

Natürlich ist es immer ratsam, am Ort möglicher Fehlerentstehungen Sicherungen einzubauen.
Aber in diesem OpenDialog-Fall wäre nichts passiert:
- wird bereits ein File abgespielt, wird es fortgesetzt, wenn KEIN anderes File ausgewählt wird
- wird KEIN File abgespielt und KEIN File ausgewählt, geschieht nichts.

Es greifen vor- und/oder nachgelagerte "Sicherungen".
Aber wenn man's ordentlich macht, wird kein überflüssiger Code ausgeführt...