如何通过点或从TRichedit索引获取字符

Question

我有函数返回字符的索引GetCharFromPos（Pt：TPoint）：整数;

现在我想得到那个位置的特征。像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];