Delphi World - Как получить определённую часть текста из RichEdit
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как получить определённую часть текста из RichEdit

Идем тут мы с подружкой по центру в пятницу вечером, гуляем типа :))) Жалуемся друг другу на наши работы... Точнее, не жалуемся, а просто разговоры разговариваем. - У нас такие отвратительные мониторы, - говорит она, - мерцают очень сильно...
- Да, - говорю я, у нас тока у Маков ничего, а у Писюков тоже дерьмовые...
- СколькИ-, сколькИ- у вас писюковые??
- Маша! Я говорю ДЕРЬМОВЫЕ!!! :))))
Так родилось новое понятие - "17-дерьмовые мониторы"...

Иногда бывает необходимо полудить только часть текста из RichEdit не выделяя его, то есть не используя свойство SelText. Ниже представлен код, который позволяет сделать это.


{Переопределяем неправильное объявление TTextRange в RichEdit.pas}
TTextRange = record
  chrg: TCharRange;
  lpstrText: PAnsiChar;
end;


function REGetTextRange(RichEdit: TRichEdit;
BeginPos, MaxLength: Integer): string;
{RichEdit - RichEdit control
BeginPos - абсолютное значение первого символа
MaxLength - максимально число получаемых символов}
var
  TextRange: TTextRange;
begin
  if MaxLength>0 then
  begin
    SetLength(Result, MaxLength);
    with TextRange do
    begin
      chrg.cpMin := BeginPos;
      chrg.cpMax := BeginPos+MaxLength;
      lpstrText := PChar(Result);
    end;
    SetLength(Result, SendMessage(RichEdit.Handle, EM_GETTEXTRANGE, 0,
    longint(@TextRange)));
  end
  else
    Result:='';
end;

Следующую функцию можно использовать для получения слова, над которым находится курсор мышки:


function RECharIndexByPos(RichEdit: TRichEdit; X, Y: Integer): Integer;
{ функция возвращает абсолютное положение символа для данных координат курсора}
var
  P: TPoint;
begin
  P := Point(X, Y);
  Result := SendMessage(RichEdit.Handle, EM_CHARFROMPOS, 0, longint(@P));
end;

function REExtractWordFromPos(RichEdit: TRichEdit; X, Y: Integer):=
string;
{ X, Y - координаты в rich edit }
{возвращает слово в текущих координатах курсора}
var
  BegPos, EndPos: Integer;
begin
  BegPos := RECharIndexByPos(RichEdit, X, Y);
  if (BegPos < 0) or
  (SendMessage(RichEdit.Handle, EM_FINDWORDBREAK,WB_CLASSIFY,BegPos) and
  (WBF_BREAKLINE or WBF_ISWHITE) <> 0 ) then
  begin
    result:='';
    exit;
  end;

  if SendMessage(RichEdit.Handle, EM_FINDWORDBREAK,WB_CLASSIFY,BegPos-1) and
  (WBF_BREAKLINE or WBF_ISWHITE) = 0 then
    BegPos:=SendMessage(RichEdit.Handle, EM_FINDWORDBREAK,
    WB_MOVEWORDLEFT, BegPos);
  EndPos:=SendMessage(RichEdit.Handle, EM_FINDWORDBREAK,
  WB_MOVEWORDRIGHT, BegPos);
  Result:=TrimRight(REGetTextRange(RichEdit, BegPos, EndPos - BegPos));
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования