For schleife

[-Phantom-]

Danke so geht es. Ähmm... nein ich trage sie nicht nachträglich nach so sieht das nun bei mir aus

Delphi-Quellcode:

var
i,i2,iz: Integer;
neudatei : String;
item : TLISTitem;

begin
  dateilist.Enabled := false;
  lblstatus.Caption := 'Dateien werden hinzugefügt...';
  fneu.Zip.DLLDirectory := ExtractFilePath(ParamStr(0));
    add.Execute;
    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;
    fneu.zip.ZipComment := fneu.smemo2.Text;
    end;
    for iz := 0 to dateilist.Items.Count-1 do begin
    item := dateilist.Items[iz];
    item.SubItems.Add(inttostr(fneu.zip[iz].CompressedSize)+' B');
    item.SubItems.Add(datetostr(fneu.zip[iz].DateStamp));
    end;
    end;
     if dialogshow  then
    showmessage('Datei/en wurden erfolgreich hinzugefügt');
    dateilist.Enabled := True;
end;

Kann man das noch anders mit den For Schleifen machen?

// wenn ich das alle in eine for-schleife packe geht das nur beim ersten mal gut, denn "i2 = add.fiels.count" und dann werden die Daten in der Listview wieder überschrieben.