Delphi - RichEdit. Удаление слова, строки, абзаца под курсором.

[inkenvy]

Собственно задание, пишем текстовый редактор, с помощью RichEdit. В дополнение ко всему функционалу, нужно 3 кнопки: удаление слова на котором стоит каретка, удаление абзаца, удаление строки.

uses 
 RichEdit; 
  
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Integer); 
var 
  iCharIndex, iLineIndex, iCharOffset, i, j: Integer; 
  Pt: TPoint; 
  s: string; 
begin 
  with TRichEdit(Sender) do 
  begin 
    Pt := Point(X, Y); 
    // Get Character Index from word under the cursor 
    iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt)); 
    if iCharIndex < 0 then Exit; 
    // Get line Index 
    iLineIndex  := Perform(EM_EXLINEFROMCHAR, 0, iCharIndex); 
    iCharOffset := iCharIndex - Perform(EM_LINEINDEX, iLineIndex, 0); 
    if Lines.Count - 1 < iLineIndex then Exit; 
    // store the current line in a variable 
    s := Lines[iLineIndex]; 
    // Search the beginning of the word 
    i := iCharOffset + 1; 
    while (i > 0) and (s[i] <> ' ') do Dec(i); 
    // Search the end of the word 
    j := iCharOffset + 1; 
    while (j <= Length(s)) and (s[j] <> ' ') do Inc(j); 
    // Display Text under Cursor 
    Caption := Copy(s, i, j - i); 
  end; 
end;

Вот что есть, но этот алгоритм не учитывает того, что после слова может быть и точка и другие разделительные знаки. Относительно абзаца и строки всё труднее. Помогите составить алгоритм пожалуйста.

[inkenvy]

Никто с RichEdit не работал?

[Аватар]

А OnMouseMove при чем? В нем удалять собрался? SpeedButton и его OnClick как раз - фокус не забирает. В нем по позиции каретки анализируй текст в зависимости от того что хочешь удалить. Для удаления установи SelStart и SelLength по результатам анализа и в SelText присвой ''. С разделительными знаками уж сам как-то разбирайся

[inkenvy]

function SelectWordUnderCaret(ARichEdit:TRichEdit):string;
var
   Line    : Integer;
   Column  : Integer;
   LineText: string;
   InitPos : Integer;
   EndPos  : Integer;
begin

   Line   := ARichEdit.Perform(EM_LINEFROMCHAR,ARichEdit.SelStart, 0) ;
   Column := ARichEdit.SelStart - ARichEdit.Perform(EM_LINEINDEX, Line, 0) ;

   if ARichEdit.Lines.Count-1 < Line then Exit;


   LineText := ARichEdit.Lines[Line];

   Inc(Column);
   InitPos := Column;

   while (InitPos > 0) and not (LineText[InitPos] in ['.', ' ', ',', #0]) do Dec(InitPos);
   Inc(Column);

   EndPos := Column;

   while (EndPos <= Length(LineText)) and not (LineText[EndPos] in ['.', ' ', ',', #0]) do Inc(EndPos);


   Result := Trim(Copy(LineText, InitPos, EndPos - InitPos), );

   ARichEdit.SelStart  := ARichEdit.Perform(EM_LINEINDEX, Line, 0)+InitPos;
   ARichEdit.SelLength := Length(Result);
end;

Вот что получилось наклепать, только работает не совсем корректно, иногда захватывает знаки препинания.Проверьте пожалуйста.

[min@y™]

Сообщение от inkenvy

Никто с RichEdit не работал?

это самый глючный компонент из стандартных.
тебе его использовать обязательно?

[northener]

Сообщение от min@y™

это самый глючный компонент из стандартных.

Обоснуй почему самый и почему глючный.

[Stilet]

удаление слова на котором стоит каретка

Я бы делал так:

With RichEdit do begin
 i:=SelStart; j:=i;
 while (i>0)and(Lines.Text[i] in ['а'..'я']) do dec(i);
 while (j<Length(Lines.Text))and(Lines.Text[j] in ['а'..'я']) do inc(j);
 s:=Lines.Text; delete(s,i,j-i);Lines.Text:=s; 
end;

По крайней мере попробовал бы таким способом.
Или же воспользовавшись советом min@y™ посылал бы сообщение выделения и нажатия клавиши Del.

[min@y™]

Обоснуй почему самый и почему глючный.

убедился на собственном опыте и опыте коллег, лет 14 назад.
просто поверь на слово или не обращай внимание.