Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#13

AW: .wav auf FM ok, auf Mobile Flop

  Alt 18. Jun 2015, 20:57
procedure TForm7.Button1Click(Sender: TObject);
begin
TPath.Combine(TPath.GetDocumentsPath, 'a.wav'); { Internal }
TPath.Combine(TPath.GetSharedDocumentsPath, 'a.wav'); { External }
mediaPlayer1.FileName:= 'a.wav';
mediaPlayer1.Play;
end;

(ich meine, das ist gut lesbar).
Ich kann auch die ersten beiden Zeilen trennen - das Ergebnis bleibt gleich.
Wenn du das meinst, dann ist das so ...
Delphi-Quellcode:
procedure TForm7.Button1Click(Sender: TObject);
begin
  TPath.Combine(TPath.GetDocumentsPath, 'a.wav'); { Internal }
  TPath.Combine(TPath.GetSharedDocumentsPath, 'a.wav'); { External }
  mediaPlayer1.FileName:= 'a.wav';
  mediaPlayer1.Play;
end;
Meine Meinung: Freundliche Fragesteller setzen ihren Code in die Delphi-Tags, allen Anderen empfehle ich es, sonst überlese ich einfach deren Beiträge.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat