For schleife

[-Phantom-]

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)