Hallo !

Ich hab ein kleines Problem :
In einem Fenster habe ich ein TMemo, in dem der User Text eingeben können soll .
Dabei soll es auch möglich sein, am Ende des Textes Leerzeilen hinzuzufügen (damit nach Speichern wieder am Ende mit der Eingabe fortgesetzt werden kann.

1. Bsp :

"BlaDiBla"<CR><LF>
BlubbDiBlubb"<CR><LF>
<CR><LF>"

Hier liefert mir:
TMemo.Text = ""BlaDiBla"<CR><LF>BlubbDiBlubb"<CR><LF>" -> also keine Leerzeile am Ende
TMemo.GetTextBuf(...) = "BlaDiBla"<CR><LF>BlubbDiBlubb"<CR>" -> auch keine Leerzeile (Cnt mögl. 1 zu niedrig)

2. Bsp :

"BlaDiBla"<CR><LF>
BlubbDiBlubb"<CR><LF>
<CR><LF>"
<CR><LF>"
<CR><LF>"
Hier liefert mir:
TMemo.Text = ""BlaDiBla"<CR><LF>BlubbDiBlubb"<CR><LF>" -> also keine Leerzeilen am Ende
TMemo.GetTextBuf(...) = "BlaDiBla"<CR><LF>BlubbDiBlubb"<CR>" -> auch keine Leerzeilen (Cnt mögl. 1 zu niedrig)

3. Bsp :

"BlaDiBla"<CR><LF>
BlubbDiBlubb"
Hier liefert mir:
TMemo.Text = ""BlaDiBla"<CR><LF>BlubbDiBlubb"<CR><LF>" -> also ein <CR><LF> am Ende
TMemo.GetTextBuf(...) = "BlaDiBla"<CR><LF>BlubbDiBlubb"<CR>" -> also ein <CR><LF> am Ende

Mit TMemo.Lines.Count komme ich immer auf 2 Zeilen - auch bei dem 2. Bsp.

Was nun ?