Ganz einfacher MP3 Player

[1234588]

Zitat von BullsEye:

Delphi-Quellcode:

IF ListBox1.ItemIndex <= -1 THEN BEGIN
btnOeffnen.click;
Abspielen;
END ELSE BEGIN
Abspielen;
END;

Code gerade ausm Kopf

man will ja nicht kleinlich sein, aber:
http://www.delphi-treff.de/delphi-styleguide/



außerdem wurde ich nur verschachteln, wenn es unbegint sein muss. nicht formatiert kann das furchtbar unleserlich werden.

Delphi-Quellcode:

if ListBox1.ItemIndex <= -1 then
  Dialog();
Abspielen();

das entspricht deinem snippet, denn bei

Delphi-Quellcode:

if exp then 
  miep() else 
    miep()

wird immer miep() aufgerufen.
sinnvoll waere folgendes:

Delphi-Quellcode:

if ListBox1.ItemIndex <= -1 then
  Dialog();
if ListBox1.ItemIndex <= -1 then
  Abpielen();

imho muss es ja nicht sein, das eine datei tatsaechlich hinzugefuegt wird bzw. existiert. so wird sichergestellt, das auch nur abgespielt wird, wenn auch was da ist.