Link automatisiert in Memo schreiben

[CG2003]

Hallo,

Ich stehe momentan voll auf'm Schlauch und auch die Suche hat leider nicht viel Brauchbares ergeben.
ich habe folgenden Link, den ich automatisiert in ein Memo mittels Memo1.Lines.Add('') schreiben möchte:

Code:

<a onclick="javascript:window.open('http://www.f-3917.de/schada/feuk.htm','FEUK','width=500,height=240,scrollbars=no');"> [img]http://f-3917.de/schada/info.gif[/img]</A></td>

So, nun möchte ich aber im window.open das FEUK.HTM und das FEUK in den Hochkommas dahinter automatisiert ändern.
Das heisst, ich habe ein Edit edtSchadensart, in dem jetzt beispielsweise "DRZF" steht.

Dann sollte das so aussehen:

Code:

<a onclick="javascript:window.open('http://www.f-3917.de/schada/drzf.htm','DRZF','width=500,height=240,scrollbars=no');"> [img]http://f-3917.de/schada/info.gif[/img]</A></td>

Habe es in meinem Code so probiert:

Code:

Memo.Lines.Add(edtSchadensart.Text + '<a onclick="javascript:window.open(''http://www.f-3917.de/schada/'' + LowerCase(edtSchadensart.Text) + ''.htm','''' + Uppercase(edtSchadensart.Text) + ''','width=500,height=240,scrollbars=no');"> [img]http://f-3917.de/schada/info.gif[/img]</A></td>');

Aber da meckert der Compiler mit der Meldung "Zu viele Parameter".

Ich hoffe Ihr könnt mir helfen und versteht ungefähr, was ich möchte.

[marabu]

Hallo Sebastian,

vielleicht solltest du deinen Quelltext etwas mehr strukturieren:

Delphi-Quellcode:

const
  S_BASEURL
    = 'http://www.f-3917.de/schada';
  FMT_URL
    = '%s/%s.htm';
  FMT_JAVA
    = 'javascript:window.open(''%s'',''%s'',''width=500,height=240,scrollbars=no'');';
  FMT_ATTR
    = 'onclick="%s"';
  FMT_HTML
    = '<td><a %s>[img]%s/info.gif[/img]</a></td>';

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  s, attr, url, java: String;
begin
  s := edtSchadensArt.Text;
  url := Format(FMT_URL, [S_BASEURL, s]);
  java := Format(FMT_JAVA, [url, s]);
  attr := Format(FMT_ATTR, [java]);
  Memo.Lines.Add(Format(FMT_HTML, [attr, S_BASEURL]));
end;

Grüße vom marabu

[CG2003]

Zitat von marabu:

Hallo Sebastian,

vielleicht solltest du deinen Quelltext etwas mehr strukturieren:

Danke marabu!

Du hast (leider) Recht. Habe ich auch schon gemacht!
Aber Dein geposteter Code funktioniert 1A !

Vielen Dank dafür!