Memo Field HTML Linebreaks einfügen

[Popov]

Kurz und Schmerzlos:

Delphi-Quellcode:

var
  s: String;
  i: Integer;
begin
  s := '';
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    s := s + Memo1.Lines[i];
    if not (i = (Memo1.Lines.Count - 1)) then s := s + '<br>';
  end;

  ShowMessage(s);
end;

In der Variable S steht dein HTML Text, bzw. Text mit BR-Tags.

//Edit:

Oder wenn es im Memofeld sein soll:

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    if not (i = (Memo1.Lines.Count - 1)) then
      Memo1.Lines[i] := Memo1.Lines[i] + '<br>';
end;

Die Zeilen if not (i = (Memo1.Lines.Count - 1)) then sind dazu da, damit die letzte Zeile ausgeschlossen wird. Kann man auch weglassen, dann hat die letzte Zeile auch ein BR-Tag.