Konstantenausdruck erwartet obwohl nicht erforderlich

[meccs]

Hallo
Ich hab ein Kleines Problem ich wollte mir das Soundabspielen vereinfachen und hab den Abspielteil des Mediaplayers in eine Prozedure gepackt

Delphi-Quellcode:

Procedure TForm1.Playsound(x:String);

  Begin
    With MediaPlayer1 do
           begin
           filename:=x;
           Open;
           Play;
            end;
            end;

Jetzt wollte ich mit dem Aufruf
playsound('1.wav'); die Sounddatei übergeben und abspielen.
Leider kommt dann immer die Fehlermeldung:
Kostantenausdruck erwartet

nu weiß ich leider nicht weiter. So wie ich das sehe müsste ja alles richtig sein...

so long
meccs

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Luckie]

Wo kommt der Fehler? Sieht auf den ersten Blick doch gut aus.

[Christian Seehase]

Moin meccs,

das kann ich nicht nachvollziehen.
Wenn ich Deinen Source unverändert übernehme (playsound('1.wav') hab' ich in eine ButtonClick Routine gepackt) wird es ohne Probleme compiliert.

Bist Du sicher, dass der Fehler in einer der von Dir gezeigten Zeilen auftritt?

[meccs]

ARGS!
mein Gott warum passiert mir das immer!
kaum hab ich das hier gepostet oder jemand anders hat sich meinen Quellcode angesehen und ihn nach fehlern untersucht und schon find ich die Lösung selber und muss feststellen, das es einfach nur ein kleiner dummer fehler war! Diesmal hab ich einfach nur übersehen das ich ein end; falsh gesetzt hatte.
!! Danke für eure Schnelle Hilfe!
sorry für den spam weil ich glaube mehr war das hier nicht. Aber vielleicht kann ja jemand den Quellcode mal gebrauchen....

also nochmal sorry leute!

so long
meccs