當文本具有三行或更多行時，我如何知道是否在 TRichEdit 中選擇了所有文本？

Question

我有一個帶有一些RTF的 TRichEdit（僅帶格式的文本），我想知道是否選擇了 TRichEdit 的所有內容。 為此，我這樣做：

var AllSelectd: Boolean;
//...
AllSelectd := MyRichEdit.SelLength = MyRichEdit.GetTextLen;

效果很好，除非內容有三行或更多行。 零到兩行，一切都很好。 一旦我在 TRichEdit 中達到三行，上面的代碼就不再有效（ MyRichEdit.SelLength < MyRichEdit.GetTextLen ）。 每行都以 CRLF ( #13#10 ) 結尾。

這是一個錯誤嗎？ 我怎樣才能可靠地檢查是否在 TRichEdit 中選擇了所有內容？

我使用 Delphi 10.4，如果它有任何變化的話。

Answer 1

如本主題所述，RichEdit 2.0 在內部將 CRLF 對替換為 CR，並在某些情況下檢索 LF。

作為解決方法 - 計算選定范圍內的行數以進行更正（ SelText僅包含 CR， GetTextLen處理帶有檢索到的 CRLF 的文本，因此計算 CR 和 LF）。 使用 Remy Lebeau 提案。

var
  sel, getl, crcnt, i: integer;
  tx: string;
begin
  sel := RichEdit1.SelLength;
  getl := RichEdit1.GetTextLen;
  crcnt := SendMessage(Richedit1.Handle, EM_EXLINEFROMCHAR, 0, sel);
  Memo1.Lines.Add(Format('%d %d',[sel, getl - crcnt + 1]));
end;