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

[Frankfurter_Bub]

sorry, aber das hilft mir ne weiter.. find nur Edit1, das is n Tedit..

was soll ich machen, find nix besseres :cry:

[xaromz]

Hallo,

Zitat:

Zitat von Frankfurter_Bub

sorry, aber das hilft mir ne weiter.. find nur Edit1, das is n Tedit..

was soll ich machen, find nix besseres :cry:

ich hoffe, Du weißt, dass man Komponenten umbenennen kann (Eigenschaft Name).

Gruß
xaromz

[leddl]

Zitat:

Zitat von Frankfurter_Bub

find nur Edit1, das is n Tedit..

Und wenn du das umbenennst, kannst du sogar ein "WaddeHaddeDuddeDaEdit" draus machen ;)

[Frankfurter_Bub]

wie geil is das denn? es funzt^^ :cheers:

joar, ich sag dann mal thx @ all!!

mfg stefan

[Frankfurter_Bub]

so weit, so gut! in was kann es ausgegeben werden, dass ich die liste auch auf einmal komplett kopieren kann??

[xaromz]

Hallo,

Zitat:

Zitat von Frankfurter_Bub

so weit, so gut! in was kann es ausgegeben werden, dass ich die liste auch auf einmal komplett kopieren kann??

dafür nimmst Du am Besten ein TMemo. Mit Memo1.Lines.Add(WasAuchImmer); fügst Du eine Zeile hinzu.

Gruß
xaromz

[inherited]

Also

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
    Memo1.Lines.Add(Format(UrlEdit.Text, [i]));
end;