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:

markieren

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!




changed code:

zusammenfalten · markieren

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]

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

?? hab nüscht jefunde , leider

mfg stefan

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

Zitat von fLaSh11:

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

Bitte melde doch in Zukunft solch einen Beitrag.

kk, Chef!

zur Frage:
ich habe diesen Fehler gefunden:

zusammenfalten · markieren

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;

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

mfg stefan