Löschen von Dateien

[SaFu]

Es wird 2 mal der gleiche Pfad zurückgegeben ?????

Wie geht das denn

[Hawkeye219]

Hallo Sascha,

Zitat von Delphi-Hilfe zu TFileListBox.FileName:

Die Eigenschaft FileName gibt den Namen der ausgewählten Datei im Dateilistenfeld einschließlich des Pfades an.

Du kannst den über FileListBox1.FileName ausgelesenen Dateinamen also direkt an DeleteFile übergeben.

Gruß Hawkeye

[SaFu]

Ok habs schon

war ja noch einfacher als ich gedacht habe sonnst immer alles so koplieziert und jetzt.....

Delphi-Quellcode:

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

[SaFu]

Hab gerade nochmal ne frage

Wie kann ich abfragen ob die FileListBox leer ist und wenn ja message ausgeben hab es so geht aber nicht

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.<> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        DeleteFile( FileListBox1.FileName);
        ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
        FileListbox1.Update;
      end
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
  end;
end;

[Daniel G]

if FileListBox1.Filename <> '' then //Filename vergessen Und die Satzzeichen hast du in deinem Post auch vergessen...

[SaFu]

Ich steh heute voll aufm schlauch.

das FileName hate ich schon reingesetzt, hatte nur das end an die falsche stelle gestzt.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.FileName <> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        DeleteFile( FileListBox1.FileName);
        ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
        FileListbox1.Update;
      end;
     end// hier gehört es hin
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
end;

aber danke nochmals für eure hilfe

[C.Schoch]

Des weiteren kannst du noch nicht davon ausgehen, dass die Datei wirklich gelöscht wurde!
Ich würd noch den Rückgabewert von DeleteFile abfragen

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.FileName <> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        if DeleteFile( FileListBox1.FileName) then // <- Hier geändert
        begin
          ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
          FileListbox1.Update; // Das Updaten auch sparen wenn nichts gelöscht
        end;
      end;
     end// hier gehört es hin
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
end;

[SaFu]

ja stimmt ist besser so aber das updaten muss rein sonnst wir die ListBox nicht aktualliesiert