Undeklarierter Bezeichner (MediaPlayer)

[Mavarik]

Zitat von Sveni795:

Wenn ich den String direkt übergebe sagt mir der Compiler es seien zu viele Parameter

DataLink ist global deklariert

Das mit den Klammern habe ich nicht verstanden. Sorry

Logisch...

Es gibt verschiede Arten von Übergrabeparamtetern

Delphi-Quellcode:

Procedure Foo(S : String);
Procedure Foo(Var S : String);
Procedure Foo(Const S : String);
Procedure Foo(Out S : String);

Ohne Parameter wird von der übergebenen Variablen eine Kopie erzeugt.
Lokale Änderungen haben keinen Effekt nach außen.
Hier kannst Du auch Foo('Whatever'); übergeben.

Bei Var, erwartet der Compiler auch eine Variable da diese innerhalb der Procedure änderbar ist. Somit kannst du bei VAR keine Konstante 'Whatever' übergeben.

Const, kann beides übernehmen, da innerhalb der procedure (Compilermagic) der String nicht geändert werden kann...

Out ist fast wie Var - zeigt jedoch, dass die Variable als Ausgabeparameter definiert ist und die Procedure keine Initialisierung hiervon erwartet.

und Klammern weg bedeitet:

S := 'Cool'; und nicht S := ('Cool');
Mavarik

[a.def]

Ich warte ja noch immer auf einen "Thumbs-Up"-Button, "Danke"-Button oder etwas ähnliches

[Sveni795]

Wahnsinn dieses Feedback

So ich habe nun die Ratschläge angenommen und entsprechend angepasst:

Code:

  const
    conSoundxx = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\xx.mp3';

procedure TTabbedForm.Button1Click(Sender: TObject);
begin
  TTabbedForm.playSound(conSoundxx);
end;

procedure TTabbedForm.playSound(DataLink: string);
 begin
  MediaPlayer1.FileName := DataLink;
  MediaPlayer1.Play;
 end;

Die Variable "DataLink" gibt es nun nicht mehr global, die habe ich gelöscht.
Die wird doch jetzt nur noch local verwendet.

Das Problem, dass der Mediaplayer nicht bezeichnet ist, ist jetzt weg. Aber er mag die "Const" nicht.
Diese habe zu viele Parameter!?

[Mavarik]

Zitat von a.def:

Ich warte ja noch immer auf einen "Thumbs-Up"-Button, "Danke"-Button oder etwas ähnliches

aber wofür?

[Mavarik]

Zitat von Sveni795:

Aber er mag die "Const" nicht.
Diese habe zu viele Parameter!?

Hast Du Const auch in der Deklaration angegeben? Also einmal "oben" und "unten"?

[a.def]

Zitat:

Aber er mag die "Const" nicht.

So etwas musst du dir unbedingt abgewöhnen. Das ist genau wie... "Mein PC geht nicht" oder "... funktioniert nicht".

[haentschman]

Zitat:

Aber er mag die "Const" nicht.

Schreibe mal die Konstante im Interface Teil:

Delphi-Quellcode:

interface

const
  conSoundxx = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\xx.mp3';

uses 

type
...

Vielleicht solltest du den Delphi Crashkurs dir mal reinziehen... Da erfährst du viel über den Aufbau. Wo gehört was hin...
Crashkurs:
https://www.delphi-treff.de/tutorial...phi-crashkurs/
E-Book:
https://www.delphi-treff.de/downloads/e-book/

[Sveni795]

Zitat von haentschman:

Zitat:

Aber er mag die "Const" nicht.

Schreibe mal die Konstante im Interface Teil:

Delphi-Quellcode:

interface

const
  conSoundxx = 'C:\Users\Sven\Documents\Embarcadero\Studio\Projekte\Soundbord\Sounds\xx.mp3';

uses 

type
...

Vielleicht solltest du den Delphi Crashkurs dir mal reinziehen... Da erfährst du viel über den Aufbau. Wo gehört was hin...
Crashkurs:
https://www.delphi-treff.de/tutorial...phi-crashkurs/
E-Book:
https://www.delphi-treff.de/downloads/e-book/

Danke, werde ich jetzt erst mal machen.

Stand jetzt habe ich das zwar im Interface gemacht. Aber er sagt mir immer bei:

Code:

procedure TTabbedForm.Button1Click(Sender: TObject);
begin
  TTabbedForm.playSound(conSoundAlter);
end;

Fehler "Zu viele Parameter"

Aber wie du schon gesagt hast werde ich mir jetzt die Crashkurse zurerst reinziehen!

[haentschman]

Hänge das komplette Projekt (ZIP) mal an. Da können wir das mal durchgehen und die Fehler mit Kommentaren markieren.

[Mavarik]

Zitat von Sveni795:

Fehler "Zu viele Parameter"

Jetzt wird es anstrengend...

Poste doch mal den Sourcecode und nicht immer nur eine Zeile... Da können wir auch nix sehen!