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

markieren

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

Dateinamen variabel angeben bei mcisendstring

Dateinamen variabel angeben bei mcisendstring

Forumregeln