Link automatisiert in Memo schreiben

[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