Dateinamen variabel angeben bei mcisendstring

[clarity]

Hi zusammen!
Hab folgendes Problem: HAb des Source von overmoon aus dem Tutorial verwendet, um Sounds aufzunehmen.

Das sieht dann für das speichern bei mir so aus

Code:

procedure TSpectrumForm.Button5Click(Sender: TObject);

begin
mciSendString('STOP mySound',nil,0,Handle);
mciSendString('SAVE mySound "c:\datei.wav"',nil,0,Handle);
mciSendString('CLOSE mySound',nil,0,Handle);
 end;

Das funzt gut

wie kann ich es nun erreichen, das ich einen beliebigen Dateinamen, bzw einen durch eine Schleife nummerierten Dateinamen (datei1.wav,datei2.wav,datei3.wav...) zum speichern angeben kann. HAbs so versucht, geht aber net

Code:

 
procedure TSpectrumForm.Button5Click(Sender: TObject);
var f: string;

begin
mciSendString('STOP mySound',nil,0,Handle);

   F := 'SAVE mySound '+'"'+'c:\datei'+inttostr(durchl)+'.wav'+'"' ;
   LAbel1.caption:= f;
mciSendString('''+ f +''',nil,0,Handle);
     mciSendString('CLOSE mySound',nil,0,Handle);
    inc(durchl);//'durchl' bereits als integer angegeben
end;

KAnn mir jemand helfen

THX@all

[dizzy]

Versuch mal PChar(f)

\\edit:

Öööööhm:

Zitat:

mciSendString('''+ f +''',nil,0,Handle);

Du übergibst hier den String '+ f +'. Das kann net klappen -> Du hast ein paar ' zu viel (oder 2 zu wenig, je nach dem wie mans sieht )

Probier mal:
mciSendString(f, nil, 0, Handle); gruss,
dizzy

[clarity]

Danke, Klappt super!!