Indsæt HTML kode i Memo1.Lines.Text

du indsætter ' i en string, det må man ikke da string begynder og slutter med '
derfor skal ' skrives som '' som vil blive fortolket som kun 1 '

så din tekst bliver som følger:
Memo1.Text := '<a href="kontakt.htm" title="Send e-mail to Doman.dk" target="hojere"
  onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>''"
  onfocus="this.href=''mailto:<Mail>&#64;<Domain>.<Top>''">
  <LinkTekst>
</a>';

Hej nlf
Nej det fungeret ikke.

Får følgende fejlmeddelse:
[Error] Unit1.pas(111): Unterminated string
[Error] Unit1.pas(112): Missing operator or semicolon
[Error] Unit1.pas(112): ':=' expected but '=' found
[Error] Unit1.pas(112): ':=' expected but '=' found
[Error] Unit1.pas(112): Undeclared identifier: 'Mail'
[Error] Unit1.pas(112): Expression expected but '.' found
[Error] Unit1.pas(113): Incompatible types: 'String' and 'Boolean'
[Error] Unit1.pas(113): Missing operator or semicolon
[Error] Unit1.pas(113): ':=' expected but ':' found
[Error] Unit1.pas(113): Statement expected but '<' found
[Error] Unit1.pas(113): Illegal character in input file: '"' ($22)
[Error] Unit1.pas(114): Expression expected but '<' found
[Error] Unit1.pas(114): Expression expected but '<' found
[Error] Unit1.pas(119): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Med venlig hilsen
Monie Jacobsen

Det er din egen skyld...du har ikke sat det hele på 1 linie!
Hvis du sætter det på flere linier uden at forbinde dem er det jo klart der kommer fejl! Hvis du sætter det hele på 1 linie virker det altså, har testet det

Hej nlf
Det var rigtig, at det hele skulle være på en stor linje.

Med koden her:
Memo1.Text := '<a href="kontakt.htm" title="Send e-mail to Doman.dk" target="hojere"
              onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>''"
              onfocus="this.href=''mailto:<Mail>&#64;<Domain>.<Top>''">
              <LinkTekst>
</a>';

Blev i Outlook Ekspress vist Til:<Mail>@<Domain>.<Top>

Hvorfor vist <Mail>@<Domain>.<Top> ???

Hvor med koden her:
Memo1.Lines.Text:= '<a href="mailto:<Mail>&#64;<Domain>.<Top>"><LinkTekst></a>';
Vist i Outlook Ekspress blev det Til:Mail@Domain.Top

Hvor går det galt?

Med venlig hilsen
Monie Jacobsen

Hej
Linjerne med angivelse af *** det er her der optår problem, når jeg vil benytte
den udskrevet HTML-kode og vil kopi den over i en HTML-editor og køre koden, så går det galt.
Håber du har en løsning på problemet?


function ISOEncode(const Value: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(Value) do
    Result := Result + '&#' + IntToStr(ord(Value[i])) + ';';
end;



procedure TForm1.LMDButton1Click(Sender: TObject);
var
  eUser, eDomain, eTop, eLinkTekst, eMusOverTekst: string;
begin
 
***  Denne linje virker //Memo1.Lines.Text:= '<a href="mailto:<Mail>&#64;<Domain>.<Top>"><LinkTekst></a>';
 
***  Men hvorfor ikke denne linje??? Memo1.Lines.Text:= '<a href="kontakt.htm" title="<MusOverTekst>" target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>''"onfocus="this.href=''mailto:<Mail>&#64;<Domain>.<Top>''"><LinkTekst></a>';

  eUser := ISOEncode(Edit1.Text);
  eDomain := ISOEncode(Edit2.Text);
  eTop := ISOEncode(Edit3.Text);
  eLinkTekst := Edit4.Text;
  eMusOverTekst := Edit5.Text;
  Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '<Mail>', eUser, [rfIgnoreCase]);
  Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '<Domain>', eDomain, [rfIgnoreCase]);
  Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '<Top>', eTop, [rfIgnoreCase]);
  Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '<LinkTekst>', eLinkTekst, [rfIgnoreCase]);
  Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, '<MusOverTekst>', eMusOverTekst, [rfIgnoreCase]);
  end;
end.

Med venlig hilsen
Monie Jacobsen

ok