如何從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];