Einfache Schleife kann ich nicht lösen! :-(

[Stefan Hueg]

Probiers mal so:

Delphi-Quellcode:

For i:= 0 to listbox1.items.count - 1 do begin
    fn := 'C:\Windows\Temp\allcover\Cover_' + IntToStr(I) + '.jpg';
    fs := TFileStream.Create(fn, fmCreate);
    try
      IdHTTP1.Get(listbox1.items[i], fs);
    finally
      fs.Free;
    end;
  end;