Mehrere ausgewählte Dateien löschen

[SaFu]

Hi

Wie die Überschrift es schon sagt versuche ich mehrere dateien aus einem Ordner zu löschen aber irgenwie bekomme ich den Fehler überschreitet den ListenIndex

Delphi-Quellcode:

procedure TForm4.Bildloeschen;
Var I :Integer;
begin
  if FileListBox1.FileName <> '' then 
   begin
    if Form1.MessageDlgPos2('Wollen Sie dieses Dokument wirklich löschen? ',mtInformation,[mbYes,mbNo],self) = mrYes then
      begin
       for i := 0 to FileListBox1.Items.Count - 1 do
          if DeleteFile(FileListBox1.Items[i]) then
           begin
             FileListbox1.Update; //Aktualisieren
             ImageBilderanzeige.Picture:= Nil;
           end;
      end;
  end
 else
  Form1.MessageDlgPos2('Es ist kein Bild ausgewählt!',mtInformation,[mbOk],Self);
end;

aber irgenwie denke ich das es doch so richtig ist oder??

[DeddyH]

Falsch:

Delphi-Quellcode:

for i := 0 to FileListBox1.Items.Count - 1 do

Richtig:

Delphi-Quellcode:

for i := FileListBox1.Items.Count - 1 downto 0 do

[SaFu]

Ich glaube ich mach da was falsch jetzt kann ich zwar alles löschen bzieungsweis 1 datei bleib immer übrig

Aber eigentlich wollte ich über die FileListbox ausgewählte Dateien löschen, das heist wenn ich z.b über Multiselect nur 4 Dateien auswähle wollte ich die dann löschen.

[DeddyH]

Dann musst Du noch abfragen, ob der Eintrag selektiert ist.

Delphi-Quellcode:

if FileListbox1.Selected[i] then...

[SaFu]

das funzt immernoch net so richtig hab ich das richtig eingebaut

Delphi-Quellcode:

procedure TForm4.Bildloeschen;
Var I :Integer;
begin
  if FileListBox1.FileName <> '' then
   begin
    if Form1.MessageDlgPos2('Wollen Sie dieses Dokument wirklich löschen? ',mtInformation,[mbYes,mbNo],self) = mrYes then
      begin
       for i := FileListBox1.Items.Count - 1 downto 0 do
        if FileListbox1.Selected[i] then
         begin
          if DeleteFile(FileListBox1.Items[i]) then
           begin
             FileListbox1.Update; //Aktualisieren
             ImageBilderanzeige.Picture:= Nil;
           end;
         end; 
      end;
  end
else
  Form1.MessageDlgPos2('Es ist kein Bild ausgewählt!',mtInformation,[mbOk],Self);
end;

[Fussball-Robby]

Zitat:

Zitat von fuknersascha

das funzt immernoch net so richtig hab ich das richtig eingebaut

Fehler? Fehlverhalten? Oder passiert garnichts?

[SaFu]

ne jetzt wird nur noch 1 Datei gelöscht obwohl ich mehr ausgewählt habe

[Klaus01]

Kann es sein das mit

Delphi-Quellcode:

FileListbox1.Update; //Aktualisieren

die Selection wieder aufgehoben wird?

Grüße
Klaus

[SaFu]

nee daran liegts nicht

[MSSSSM]

genau, die wird wieder aufgehoben.

du musst den Update befehl Nach der for schleife schreiben, dann gehts, bei mir.

mfg

[SaFu]

ja so geht das jetz bei mir auch jetzt hab ich aber ein anderes Problem.

Wenn ich mir bilder in mein Programm lade z.b Beispielbilder von Windows in mein Programm verzeichnis \Bilder\
Und sie dann lösche werden sie aber auch im Beispielordner von Windows gelöscht

[MSSSSM]

wie lädtst du die denn in dein Programm verzeichnis?

[SaFu]

so

Delphi-Quellcode:

procedure TForm4.Button7Click(Sender: TObject);
var  AlterPfad,NeuerPfad :string;
I :Integer;
begin
if OpenPictureDialog1.Execute then
 with Openpicturedialog1.Files do
  for I := 0 to count - 1 do
 begin
  AlterPfad:= OpenPictureDialog1.Files[I];
   NeuerPfad:= Form1.ServerPfad + 'Bilder\'+ ExtractFileName(OpenPictureDialog1.Files[I]);
 if not FileExists(NeuerPfad) then
  begin
   CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);
   FileListBox1.Items.Add(ExtractFileName(OpenPictureDialog1.Files[I]));
   LabAnzahlBilder.Caption:= 'Bild '+ IntToStr(index)+' von '+ IntToStr(FileListBox1.Items.Count);
  end
 else
  Form1.MessageDlgPos2('Bild ist bereits in der Liste',mtInformation,[mbOk],self);
 end;
end;

[Fussball-Robby]

Delphi-Quellcode:

   FileListBox1.Items.Add(ExtractFileName(OpenPictureDialog1.Files[I]));

Du lädst in die FileListBox ja auch die Dateien aus dem alten Ordner. Wieso lädst du überhaupt was in die FileListBox, die Dateien werden dort doch automatisch angezeigt :gruebel:

[SaFu]

Ja jetzt gehts stimmt ein FileListbox.Update wäre da angebrachter

Danke für die Antworten