Thema: ausgabe!!

Einzelnen Beitrag anzeigen

Frankfurter_Bub

Registriert seit: 20. Jun 2006
23 Beiträge
 
Delphi 7 Enterprise
 
#1

ausgabe!!

  Alt 22. Jun 2006, 18:05


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!




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]
try everything^^
  Mit Zitat antworten Zitat