Hilfe, repeat-schleife + ausgabe von text und zahlen

[Frankfurter_Bub]

:wiejetzt: also ich versuche ein prog zu schreiben, was eigentlich ne kompliziert is, aber da ich bei delphi noch nicht so durchgestiegen bin, scheiter ich..

es soll zahlen, in einer internetseite ändern. beispielsweise:

www.delphipraxis.net/ 1/jlaxcjhsc.jpg

und dann die zahlen in einem bestimmten bereich ablaufen und als liste der kompletten adresszeilen ausgeben!

HILFE

[Namenloser]

zeig doch mal ein bisschen Quelltext :wink:

[Frankfurter_Bub]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s: integer;
a,b: string;
begin
  s:= 0;
  a:=edit1.text;
  b:=edit1.text;
 repeat

  s:= s+1;
 ???:= edit1.Text;
    until s = 300;


   end;

end.

is so der anfang, ohne die einbindg von dem anfang und dem rest der adresse
in welchem panel, box,.. kann man das ausgeben??

[edit=SirThornberry]Delphi-Tags verfollständigt - Mfg, SirThornberry[/edit]

[inherited]

:wiejetzt:
Könntest du etwas zu dem Code erläutern?
Du willst das alle Adressen von
www.delphipraxis.net/ 1/jlaxcjhsc.jpg
bis
www.delphipraxis.net/ HOHEZAHL/jlaxcjhsc.jpg
Aufgerufen werden? oder wie?

[Frankfurter_Bub]

so soll es werden..
einfach eine liste von bspw:

www.codh./1.jpg bis zu www.codh./323.jpg als liste

[inherited]

Delphi-Quellcode:

var
  i: Integer;
begin
  for i:=1 to 332 do
    ListBox1.Items.Add('www.codh.de/'+IntToStr(i)+'.jpg');

[Frankfurter_Bub]

wie bekomm ich es hin, dass ich den inhalt von bspw. edit1 dort hinein bekomm?
beginn und ende soll variable sein..

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Frankfurter_Bub.

Du kannst den URL als Format-String angeben:

Delphi-Quellcode:

var
  i, iStart, iStop: Integer;
begin
  iStart := 1;
  iStop := 123;
  UrlEdit.Text := 'http://www.pictures-are-us.org/%d.jpg';
  for i := iStart to iStop do
    ListBox.Items.Add(Format(UrlEdit.Text, [i]));
end;

Freundliche Grüße vom marabu

[Frankfurter_Bub]

danke für deine hilfe aber es klappt dennoch ne,..wie erzeuge ich n urledit?

[inherited]

Das ist einfach ein TEdit