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

[la.reunion]

Hallo,
Hab ne ziehmliche Anfängerfrage.

1. WO genau kann ich schleifen zu erstellen richtig lernen?(Unser Inf-Lehrer hatte uns das nie richtig erklärt! :-( ..Leider)
2. Ich habe eine Listbox und möchte jeden eintrag durchgehen das der für eine Funktion benutzt wird
genauer gesagt soll jeder wert für "HIER" (bei dHTTP1.Get(HIER, fs);)eingetragen werden und nahceinander runtergeladen in C:\Windows\Temp\

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  fn: TFileName;
  fs : TFileStream;
begin
  fn := 'C:\Windows\Temp\';
  fs := TFileStream.Create(fn, fmCreate);
try
   try
      IdHTTP1.Get(HIER, fs);
except
  end;
    finally
    FreeAndNil(fs);                                                        
  end;
end;
end;

Danke für eure Hilfe?!?

[3_of_8]

Erstmal kannst du den try-except Block rauslassen, der ist komplett überflüssig.

Wenn du Schleifen erstellen willst, schau mal in der OH unter for, while, repeat nach.

[EDatabaseError]

schau mal hier in der Forenhilfe oder in der OH nach:
for, while oder until

Mfg
tobi


//roter kasten :-(

[la.reunion]

danke das geht ja schnell hier :-)

[la.reunion]

Delphi-Quellcode:

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

Ist die schleife dann so richtig
Was kommt dann bei HIER(muss ja jedes mal ein andres ITEM sein)rein?

[Stefan Hueg]

Schau mal hier.

[EDatabaseError]

Zitat:

Zitat von la.reunion

Delphi-Quellcode:

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

Ist die schleife dann so richtig
Was kommt dann bei HIER(muss ja jedes mal ein andres ITEM sein)rein?

imho die schleifenvariable also i

[la.reunion]

mhh hab ich probiert, er möchte aber das ich einen string dafür benutze wie kann ich das dann lösen?

... es gibt keine überladenen Verison von "Get" die man mit diese Argumenten.....

[EDatabaseError]

IntToStr(i); ;-)

[la.reunion]

mist hatt ich vergessen *vorkopfhau* :-D danke!