Undeklarierter Bezeichner (MediaPlayer)

[haentschman]

Hallo und willkommen hier...

Ich würde das File als Konstante anlegen. Wenn du mal an verschieden Stellen den gleichen Sound hast, brauchtst nur die Konstante ändern.

Delphi-Quellcode:

const
  conSoundBlubb = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\spasti alter.mp3'
  conSoundBla = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\spasti neuer.mp3'
.
.
.
procedure TForm1.playSound(DataLink: string);
 begin
  MediaPlayer1.FileName := DataLink;
  MediaPlayer1.Play;
 end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 playSound(conSoundBla);
end; 
.
procedure TForm1.Button6Click(Sender: TObject);
begin
 playSound(conSoundBla);
end;
.
procedure TForm1.Button7Click(Sender: TObject);
begin
 playSound(conSoundBlubb);
end;

PS: Gewöhne dir gleich zu Anfang an, vernünftige Bezeichnungen für die Komponenten, Variablen, Objekte etc. zu verwenden.