FileDeleter Problem

[100nF]

probier mal das:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i:Integer; 
begin 
  for i := 0 to ListView1.Items.Count - 1 do 
  begin 
    DeleteFile(ListView1.Items.item[i].subitems[1]); 
  end; 
end;

[PierreB]

Nur ne kleine Anregung zu deinem Programm: Vielleicht solltest du vorsichtshalber noch ne Sicherheitsabfrage einbauen ob die Dateien wirklich gelöscht werden sollen einbauen, sonst könnte es zu bösen Überraschungen kommen. ;)

[ichbins]

du musst eben den Pfad von dem Item rausfinden und den Dateinamen und die beiden zusammenfügen und dann löschen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i:Integer; 
begin 
  for i := 0 to ListView1.Items.Count - 1 do 
  begin 
    DeleteFile(ListView1.Items.item[i].caption (oder hieß die Eigenschaft TEXT?)+listview1.items.item[i].subitems[itemnummervondemitemmitdempfad].caption); 
  end; 
end;

[mOzZzI]

Egal, wie ich es mache, es klappt überhaupt nicht :wall:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
begin
DeleteFile(ListView1.Items.item[i].caption+listview1.items.item[i].subitems[??].caption); ) //ich hab ja keine subitems, ich habe Columns, bei mir ist der "PfadColumn" 2, aber das funzt nicht...
end;
end;

Please Help, ich weiß nicht mehr weiter... :(

[dahead]

Du hast sehrwohl subitems. Du füllst deine Columns mit Text ja schließlich auch durch SubItems.Add. Ich nehme an, du hast außerdem den Backslash vergessen. Lass dir halt mal eine Meldung (ShowMessage) über den von dir generierten Dateinamen anzeigen. Dann siehst du ob es ein korrekter Dateiname ist, oder nicht.

Allerdings wie weiter oben geschrieben, würde ich persönlich so nicht vorgehen.

[mOzZzI]

@ dahead
Wie würdest du vorgehen?
Mit der Stringlist?
Wie mache ich die?
sry, aber davon hab ich kA
Gruß Philipp

[100nF]

hast du schon meinen code probiert?
ich würde meinen, dieser müsste funktionieren.

hier ist er nochmal:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i:Integer; 
begin 
  for i := 0 to ListView1.Items.Count - 1 do 
  begin 
    DeleteFile(ListView1.Items.item[i].subitems[1]); 
  end; 
end;

oder:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i:Integer; 
begin 
  for i := 0 to ListView1.Items.Count - 1 do 
  begin 
    DeleteFile(ListView1.Items.item[i].subitems[1]+Listview1.items.item[i].caption); 
  end; 
end;

[Matze]

Zitat:

DeleteFile(ListView1.Items.???);

Delphi-Quellcode:

ListView1.Items[i].Caption

müsste es sein, das wäre der Inhalt der ersten Spalte. Die weiteren bekommst du über subitems.


Edit: Ups, Seite 2 übersehen :oops:

[mOzZzI]

Sehr vielen Dank an dich urbanbruhin!!
So hats funktioniert...

Delphi-Quellcode:

DeleteFile(ListView1.Items.Item[i].subitems[1]);

Noch eine Frage:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
if if (MessageDlg('Please wait for a while when erasing selected/all data of the files.'+#13+#10+'Once they are deleted, they are never recovered.'+#13+#10+'Are you sure to delete them?', mtWarning, [mbYes, mbNo], 0) = mrYes) then
begin DeleteFile(ListView1.Selected.subitems[1]);
showmessage('File Deleted!');
ListView1.DeleteSelected; end
else //not
end;

Ausdruckstypmuss BOOLEAN sein, aber wo denn?

[Zacherl]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if (MessageDlg('Please wait for a while when erasing selected/all data of the files.' 
               + #13+#10 
               + 'Once they are deleted, they are never recovered.' 
               + #13+#10 
               + 'Are you sure to delete them?', mtWarning, [mbYes, mbNo], 0) = mrYes) then 
  begin 
    DeleteFile(ListView1.Selected.subitems[1]); 
    showmessage('File Deleted!'); 
    ListView1.DeleteSelected; 
  end 
    else //not 
  begin
 
  end.
end;

Ohne das 2. if sollte es gehen.

Florian