Home » Tipps & Tricks » Komponenten » TRichEdit/TMemo/TEdit » String hinter Cursorposition einfügen

String hinter Cursorposition einfügen

In einem Textfeld einen String an der Cursorposition einfügenDas in TCustomEdit implementierte Property SelText gibt den markierten Text eines Textfeldes zurück. Das Property kann nicht nur lesend, sondern auch schreibend angewandt werden. Folgende Anweisung würde den markierten Text des Memofeldes in ’neuer Text‘ ändern:

  Memo1.SelText := 'neuer Text';

Da aber kein Text ersetzt werden soll, muss die Länge des markierten Abschnitts vorher auf 0 gesetzt werden. Auf diese Weise wird der neue Text hinter die aktuelle Cursorposition gesetzt:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelLength:=0;
  Memo1.SelText:='Text einfügen';
end;

Die Cursorposition lässt sich zudem über das Property SelStart setzen.