RichEdit/Memo hat eine Zeile zu viel

[scp]

Oder so:

Delphi-Quellcode:

  while Copy(Memo1.Text, length(Memo1.Text)-1, 2) = #13#10 do
    Memo1.Text := TrimRight(Copy(Memo1.Text, 1, length(Memo1.Text) - 2));

Lösch alle Leerzeilen am Ende weg.