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.