Einzelnen Beitrag anzeigen

padavan

Registriert seit: 12. Jan 2005
271 Beiträge
 
Delphi 7 Enterprise
 
#1

Bei einem memo leere Zeilen richtig löschen

  Alt 12. Jan 2005, 13:48
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
  Mit Zitat antworten Zitat