delphi - 如何从 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 .