Bei einem memo leere Zeilen richtig löschen

[padavan]

Hallo Delphianer, ich habe folgende Frage, evtl. hat jemand ´ne Idee.

Wenn man Strings in ein Memo einfügen will, kann man das ja z.B. auf diese Weis tun:

memo1.lines.add(blabla); Delphi fügt den String nach der letzen beschriebenen Zeile hinzu.

Soweit so gut.
Wenn man nun aber, warum auch immer die lines im Memo verschiebt, bleiben manchmal, je nach dem wie dies geschiet, leere Zeilen zurück. Diese sind zwar nichtbeschrieben aber zumindest schon so belegt, als würde man im Word die Enter-Taste ein paar mal betätigen. Man kann den Cursor also soweit unten plazieren, wie man die Enter-Taste gedrückt hat.

Nun mein Problem, mit dem Befehl
.add(blabla) sucht sich delphi ja nun die nächste freie Stelle und die ist leider unterhalb dieser "unbelegten" Zeilen. Das heißt, es bleiben freie Zeilen im Memo stehen.

Habe versucht es so zu lösen:

Delphi-Quellcode:

if memo1.lines[1] = '' then begin
memo1.selstart(1); //setzt den Cursor auf die leere Zeile
postmessage( wm_keypress, vk_back, 0) // oder so ähnlich, führt Backspace an dieser Stelle aus 
end;

Um ehrlich zu sein, es funktioniert nicht

Für Denkanstöße oder Belehrungen wäre ich sehr dankbar