Datei in einer zip löschen

[-Phantom-]

Hey Leute,

Ich bin ja grade dabei einen "Entpacker" zu programmieren. Ich hab es nun so gemacht das man eine .zip öffnen kann und dann können die Inhalte angezeigt werden. Nun wollte ich es so machen das einzelne Dateien gelöscht werden können. Mein
versuch:

Delphi-Quellcode:

procedure TForm2.sBitBtn6Click(Sender: TObject);
var
i : Integer;
begin
with slistview1 do
 for i := 0 to Items.Count - 1 do
if Items[i].Selected then
begin
abzipper1.OpenArchive(openarchive);
delepf := items[i].SubItems[0]; // der Pfad z.B C:\blala....
abzipper1.DeleteFiles(delepf);
abzipper1.CloseArchive;
end;
slistview1.Selected.Delete;
end;

end.

Wisst ihr was ich falsch mache?
// das Problem ist das die Datei immer noch vorhanden ist

[DeddyH]

Ja, Du formatierst Deinen Code nicht und verschweigst uns die Fehlermeldung. Ich vermute, DeleteFiles will einen TStrings-Abkömmling als Parameter.

[mkinzler]

Und versuche auf globale variablen zu verzichten

[-Phantom-]

@daddyh

Ich bekomme keine Fehlermeldung ?!

und wie formatiere ich mein code den richtig?

[DeddyH]

Wie man Code formatieren sollte, kannst Du im StyleGuide nachlesen. Und zum Problem: ist das Abbrevia? Falls ja, sind da IIRC auch Demos dabei, da könntest Du spicken.

[-Phantom-]

Ja es ist die Komponente, aber ich finde in den Demos nichts verwendbares

[mkinzler]

Das ZipView Beispiel sollte aber hilfreich sein :zwinker:

[-Phantom-]

hab das hier gefunden

Delphi-Quellcode:

procedure TForm1.Delete1Click(Sender: TObject);
var
  i : Longint;
begin
  Panel1.Caption := '';
  with AbZipView1 do
    for i := 0 to Pred(Count) do
      Items[i].Tagged := Selected[i];
  AbZipKit1.DeleteTaggedItems;
  Panel1.Caption := '';
end;

Aber Problem: ich benutze nicht die AbzipView1 sonder die listview1 und die hat kein "tagged".
Geht das auch mit der normalen listview?

[cookie22]

Zitat:

Zitat von -Phantom-

hab das hier gefunden

Delphi-Quellcode:

procedure TForm1.Delete1Click(Sender: TObject);
var
  i : Longint;
begin
  Panel1.Caption := '';
  with AbZipView1 do
    for i := 0 to Pred(Count) do
      Items[i].Tagged := Selected[i];
  AbZipKit1.DeleteTaggedItems;
  Panel1.Caption := '';
end;

Aber Problem: ich benutze nicht die AbzipView1 sonder die listview1 und die hat kein "tagged".
Geht das auch mit der normalen listview?

du mußt halt deine markierten items abfragen. was für eine komponente benutzt du überhaupt?

[mkinzler]

Zitat:

was für eine komponente benutzt du überhaupt?

Wie in #5/#6 zu lesen ist TurboPower Abbrevia