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:

markieren

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:

markieren

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:

markieren

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.

Hallo Sebastian,

vielleicht solltest du deinen Quelltext etwas mehr strukturieren:

zusammenfalten · markieren

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

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!