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)