Code:
procedure TTabbedForm.Button1Click(Sender: TObject);
begin
DataLink :=
('C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\xx.mp3');
playsound(DataLink);
end;
Code:
procedure PlaySound(VAR DataLink: string);
begin
MediaPlayer1.FileName := DataLink;
MediaPlayer1.Play;
end;
Nun kommt die Fehlermeldung MediaPlayer1.FileName sei ein Undeklarierter Bezeichner
Wenn ich die MediaPlayer1 funktionen gleich in der ButtonClick Procedure ausführe funktioniert alles ohne Probleme.
<Glaskugel auspack>
Lass mich raten: MediaPlayer1 ist eine Komponente auf dem Formular TTabbedForm. Und PlaySound ist eine Prozedur, aber keine Methode von TTabbedForm.
Mach mal aus PlaySound eine Methode von TTabbedForm und es wird funktionieren.
</Glaskugel wieder einpack>