Im Memo Text an Cursor Position einfügen

**DataCool**

Hi Leute,

eigentlich sollte es ja ganz einfach sein in einem TMemo, ein Text an der aktuellen Cursor Position einzufügen.
Allerdings habe ich keine Methode insert oder ähnliches gefunden.

Jetzt habe ich mir gedacht :

markieren

Code:

			Var sCode : String;

    sTmp  : String;

begin

    sCode := 'blabla';

    if mem_Msg.SelLength = 0 then begin

      sTmp := mem_Msg.lines.Text;

      Insert(sCode,sTmp,mem_Msg.SelStart);

      mem_Msg.Lines.Text := sTmp;

      // Focus auf Eingabe-Feld

      mem_Msg.SetFocus;

      // markierung löschen und Cursor hinter das letzte Zeichen

      mem_Msg.SelStart := mem_Msg.SelStart + Length(sCode);

      // 

    end

    else begin

    end;

Leider funktioniert das ganze nicht sehr gut, weil mem_Msg.lines.Text ja auch noch Steuerzeichen für Zeilenumbüche und ähnliches enthält.

Schön wäre es auch wenn jemand auch eine passende Lösung hat, wenn den SelLength des Memos > 0 ist, dann soll natürlich der markierte Text ersetzt werden.

Danke,

Im Memo Text an Cursor Position einfügen

Im Memo Text an Cursor Position einfügen

Forumregeln