ausgabe!!

[Frankfurter_Bub]

:wiejetzt:

hab hier schon sehr hilfreiche antworten gefunden und hab mal wieder ne frage:
also ich wollte ein prog schreiben, das mit der eingabe von der internetadresse mit die folgenden generiert..klappt alles so weit, nur muss ich momentan in der unit jedesmal die adresse ändern..

original delphi-code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, iStart, iStop: Integer;
begin
  iStart := 1;
  iStop := 300;
  UrlEdit1.Text := '[img]http://www.miep.de/%d.jpg[/img]';
  for i := iStart to iStop do
  memo1.lines.Add(Format(UrlEdit1.Text, [i]));
end;

habs verändert, weiß jetzt nur net, warum das ne funzt!
:wall:



changed code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, iStart, iStop: Integer;
  a: string;
begin
  a := edit1.text;
  iStart := 1;
  iStop := 300;
  UrlEdit1.Text := '[img]' '+a+' [/img]'; {wie drückt man diese zeile richtig aus, klassifikation von "a" falsch??}
  for i := iStart to iStop do
  memo1.lines.Add(Format(UrlEdit1.Text, [i]));
end;

HILFE


Mfg und thx im Voraus
Stefan

[edit=Luckie]Code-Tags. Mfg, Luckie[/edit]

[fLaSh11]

wie wärs ma mit Delphi-Code-Tags???

[Frankfurter_Bub]

?? hab nüscht jefunde :wall: , leider

mfg stefan

[fLaSh11]

dann mach ma edit und schau da oben, über dem Teil, wo du den Text reinschreibst, wo auch bold, italics, ... machen kannst

[Luckie]

Zitat:

Zitat von fLaSh11

wie wärs ma mit Delphi-Code-Tags???

Bitte melde doch in Zukunft solch einen Beitrag.

[fLaSh11]

kk, Chef! ;)

zur Frage:
ich habe diesen Fehler gefunden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i, iStart, iStop: Integer; 
  a: string; 
begin 
  a := edit1.text; 
  iStart := 1; 
  iStop := 300; 
  UrlEdit1.Text := '[img]'+a+' [/img]'; //vor a war ein ' zuviel! 
  for i := iStart to iStop do 
  memo1.lines.Add(Format(UrlEdit1.Text, [i])); 
end;

[Frankfurter_Bub]

bombig! dankeschön! es funzt, es ist fertig ^^

mfg stefan