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 ?