Author: Jonas Bilinkevicius

How do you delete a line from a TRichEdit at the current cursor point?

Answer:

1   uses
2     richedit; {for EM_EXLINEFROMCHAR}
3   
4   var
5     lineindex: Integer;
6     { ... }
7   
8   with richedit1 do
9   begin
10    lineindex := perform(EM_EXLINEFROMCHAR, 0, SelStart);
11    SelStart := perform(EM_LINEINDEX, lineindex, 0);
12    SelLength := perform(EM_LINEINDEX, lineindex + 1, 0) - SelStart;
13    SelText := '';
14  end;