DeleteFile und ListBox.Items?

[mlspider]

Hallo,

wieder mal eine dämliche Frage. Ich versuche eine Datei, dessen Pfad und Dateiname in einem String einer Listbox steht, zu löschen. Bislang ohne Erfolg.

Hiermit starte ich eine Aufnahme und lasse den Dateinamen in der Listbox eintragen.

Delphi-Quellcode:

procedure TFrameSoundkarte.BtnRecordStartClick(Sender: TObject);
begin
  if SaveDialog.Execute then
  ListBox1.Items.Assign(SaveDialog.Files);
    _BassPlayer.Recording.Start(SaveDialog.FileName);
end;

Danach jage ich die erzeugte Wav - Datei aus der Listbox durch den Encoder.

Delphi-Quellcode:

procedure TFrameSoundkarte.BtnRecordStopClick(Sender: TObject);
begin
  _BassPlayer.Recording.Stop;
  MP3Coder1.InputFiles :=ListBox1.Items;
  CoderMP3;
end;

Wenn dies nun abgeschlossen ist, möchte ich erreichen, daß die in der Listbox vorhandene Wav-Datei gelöscht wird. Bislang versuche ich es so:

Delphi-Quellcode:

procedure TFrameSoundkarte.MP3Coder1EndProcess(Sender: TObject);
begin
 FMain.ProgressBar1.Position := 0;
 ProgressBar1.Position := 0;
 DeleteFile(ListBox1.Items);
 ShowMessage('Media Center   Fertig!');
end;

Leider ohne Erfolg, da String und TString inkompatibel.

[dfried]

Zitat von mlspider:

Delphi-Quellcode:

procedure TFrameSoundkarte.MP3Coder1EndProcess(Sender: TObject);
begin
 FMain.ProgressBar1.Position := 0;
 ProgressBar1.Position := 0;
 DeleteFile(ListBox1.Items);
 ShowMessage('Media Center   Fertig!');
end;

Leider ohne Erfolg, da String und TString inkompatibel.

Das ist logisch, DeleteFile erwartet einen String und keine Stringliste.
Du musst also wohl oder über über die Items der Stringliste laufen und diese dem DeleteFIle vorwerfen.

Delphi-Quellcode:

for i := 0 to Listbox1.Items.count - 1 do
  DeleteFile(Listbox1.Items[i]);

[Matze]

Du musst alle Items einzelnd durchgehen, ungefähr so:

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1 do
begin
  DeleteFile(ListBox1.Items[i]);
end;

Nachtrag: Ok, hat sich ja wohl erledigt.

[mlspider]

Na klar. Ihr habt ja recht! Danke.