Abfragen was in Edit steht

[XPLOSIV]

Hallo,ich bins wieder und möchte wissen wie man abfragt was in Edit2 stehtm, hier mein Versuch:

Delphi-Quellcode:

  begin
  if Edit2.Text = "1" then begin
        const
        FileName = 'a.wav';
        begin
        MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;
end;

Hoffe jemand kann helfen

[mkinzler]

if Edit2.Text = '1' then begin

[Cyberbob]

Delphi verwendet immer ' statt "

[SirThornberry]

@XPLOSIV: So wie es aussieht kommst du von C, C++ etc.
Mitten im Quelltext erlaubt es Delphi nicht constanten zu definieren. Dafür ist der bereich über "begin" da oder eben der Interface-Teil. Zudem wird, wie bereits erwähnt, in Delphi immer mit dem Hochkomma gearbeitet und nicht mit Anführungszeichen.

Dein Codeschnippsel müsste dann also so aussehen:

Delphi-Quellcode:

const 
  FileName = 'a.wav'; 
begin 
  if (Edit2.Text = '1') then
    MCISendString(PChar('play ' + FileName), nil, 0, 0); 
end;

(Quelltext annähernd entsprechend Borland/Codegear-Styleguide formatiert)

[XPLOSIV]

@Sir: Da kommt aber immer "Undefinierter Bezeichner: 'MCISendString'"


MfG Innos

[Matze]

Hallo

Zitat von XPLOSIV:

@Sir: Da kommt aber immer "Undefinierter Bezeichner: 'MCISendString'"

Du musst noch die Unit MMSystem einbinden:

uses MMSystem;