Hi ab mal ne Frage.

Kann man bilder beziehungsweise Dateien in einer FileListBox nicht einfach so löschen?

markieren

Delphi-Quellcode:

{Bilder Löschen}
procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
FileListBox1.FileName:= a;
DeleteFile(ExtractFilePath (ParamStr(0))+'Bilder\'+ a);
end;

Gruss sascha

Du hast 2 Fehler in deinem code:

markieren

Delphi-Quellcode:

{Bilder Löschen}
procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
a := FileListBox1.FileName;//hier so muss das aussehen...
DeleteFile(ExtractFilePath (ParamStr(0))+'\Bilder\'+ a); //hier muss imho noch eine "\" rein...
end;

mfg phreax

Lass Dir doch einfach mal den Pfad zurückgeben.
Und dann schau Dir mal Items.text.

Und bedenke, DeleteFile löscht keine Schreibgeschützten Dateien.

Also notfalls noch das Schreibschutzattribut zurücksetzten.

Wie meinst er das den Pfad zurückgeben lassen.

Zbsp. So
ShowMessage(ExtractFilePath (ParamStr(0))+'Bilder\'+ a);

Achso

Aber es werden so immernoch keine Dateien gelöscht.

hast du es mal direkt probiert? also die datei mit pfad angegeben ?
DeleteFile('c:\Bilder\Bild1.bmp');

Was zeigt die die MessageBox denn an?
Wenn der Pfad den die zuvor beschriebene MessageBox ausgibt stimmt kannst du mal nach DeleteFile den Fehlercode mit GetLastError holen. Für die Ausgabe eines Fehlertextes einfach noch SysErrorMessage(GetLastError) davor.

ne noch nicht wäre ja auch nicht die funktion.

Muss die gewählte datei in der FileListBox Löschen können geht so aber nicht

markieren

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
a:= FileListBox1.FileName;
DeleteFile(ExtractFilePath (ParamStr(0))+'\Bilder\'+ a);
end;