Zeilennummer eines Memo´s ermitteln

[PM Heiko]

Hallo,

ich möchte in einem Memofeld die Zeile ermitteln, in der sich der Cursor (oder ein markierter Text) befindet und dann dieser Zeile am Beginn einige Zeichen hinzufügen.

Ich verzweifel fast ...

Heiko

[Michael Habbe]

Hi Heiko,
.
ich habe da was. In Memo1MouseDown und in Memo1KeyUp schreibe folgende Zeilen:
<code>
CursorPosLabel.Caption :=
InttoStr(Memo1.CaretPos.y+1) + ': ' + InttoStr(Memo1.CaretPos.x+1);
</code>
Nach Bewegen des Cursors wird die aktuelle Position angezeigt.
.
Gruß
Michael
.
PS: Meine DATEV-Übergabe funktioniert

[PM Heiko]

Hi, Michael,

dann habe ich aber immer noch nicht den Text der markierten Zeile - oder den der markierten Zeilen wenn mehrere markiert sind!

Gruß an deine Datevschnittstelle - meine tut auch.

Heik

[Michael Habbe]

Hallo,
.
dann schau mal in der Hilfe unter TMemo -> SelLength, SelStart und SelText für die aktuelle Markierung des Textes.
Zum Einfügen von Zeilen nimmst Du Memo1.Lines.Insert(Index). Damit fügst Du eine Zeile ein und verschiebst die nachfolgenden um 1.
.
Michae