Hey Leute,
ich komme hier grade nicht weiter.
Ich will Dateien in einer Listview eintragen.
Delphi-Quellcode:
if add.FileName <> '' then begin
fneu.zip.ZipFileName := lblpfad.Caption;
i2 := add.Files.Count;
for i := 0 to i2 - 1 do begin
neudatei := Extractfilename(add.Files[i]);
item := dateilist.Items.Add;
item.Caption := neudatei;
item.SubItems.Add(Extractfilename(neupfad)+'/'+neudatei);
fneu.zip.FSpecArgs.Add(add.Files[i]);
fneu.zip.Add;
Klappt alles wunderbar.
Nun möchte ich aber noch das die Datei Größen in einem Subitem hinzugefügt werden
Delphi-Quellcode:
for iz := 0 to dateilist.Items.Count-1 do begin
item.SubItems.Add(inttostr(fneu.zip[iz].CompressedSize)+' B');
item.SubItems.Add(datetostr(fneu.zip[iz].DateStamp));
Hier ist das Problem das die Werte einfach immer überschrieben werden. Alle Dateien sind z.B 8 Bytes groß
( Das Archiv wird trotzdem mit den richtigen Datei erstellt und die Dateien werden auch richtig hinzugefügt)