Löschen von Dateien

[SaFu]

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

Wie geht das denn :gruebel:

[Hawkeye219]

Hallo Sascha,

Zitat:

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..... :wall: :wall: :wall:

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]

Delphi-Quellcode:

if FileListBox1.Filename <> '' then //Filename vergessen

Und die Satzzeichen hast du in deinem Post auch vergessen... :wall:

[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