Memo Field HTML Linebreaks einfügen

[Mike_]

Zitat von Klaus01:

Guten Morgen,

kannst Du da nicht mit StringReplace arbeiten und #10#13 durch <br> ersetzen?

Grüße
Klaus

Gute Idee!
Leider klappt es noch nicht ganz... sieht aus wie vorher.

Hier mein Code:

Delphi-Quellcode:

[...]
  after : String;
[...]
              after  := StringReplace(Memo1.Text, '#10#13', '<br/>',
                          [rfReplaceAll, rfIgnoreCase]);
[...]

               Add(after);

Update:

So klappt es, danke :

Delphi-Quellcode:

              after  := StringReplace(Memo1.Text, #13#10, '<br/>',
                          [rfReplaceAll, rfIgnoreCase]);