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

[Stefan Hueg]

@Hawkeye: Mein Fehler, muss natürlich so lauten

Delphi-Quellcode:

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

@la.reunion: Hinter das "For i:= 0 to listbox1.items.count - 1 do" muss dringend ein Begin schließend mit einem End, sonst führt er nur das fs := TFileStream.Create(fn, fmCreate); in einer Schleife aus und macht des Rest ausserhalb.