Как получить персонажа по пунктам или по индексу из TRichedit

Question

У меня есть функция, которая возвращает индекс символа GetCharFromPos (Pt: TPoint): Integer;

Теперь я хотел получить характер этой позиции. как GetCharByIndex (Index: Integer): Char;

Answer 1

Эффективный способ сделать это с использованием чистого VCL - это использовать SelStart, SelLength и SelText.

function GetCharByIndex(Index: Integer): Char;
begin    
  RichEdit.SelStart := Index;
  RichEdit.SelLength := 1;
  Result := RichEdit.SelText[1];
end;

Вы, вероятно, захотите сохранить выделение перед его изменением, а затем восстановить его после прочтения символа.

---

Это, однако, довольно грязный способ чтения персонажа. Если вы готовы использовать сырой Win32 API, тогда вы можете использовать EM_GETTEXTRANGE.

Answer 2

Вот как вы возвращаете символ с заданным индексом из TRichEdit:

Result := RichEdit1.Text[Index];