Delphi - 如何让 WrapText 表现得像 RichEdit.Lines.Text？

Question

我使用 TRichEdit 来编辑文本。我打开了 WordWrap，它会在控件边缘自动换行文本，这样就没有滚动条了。 RichEdit 的宽度设置为适合 80 列。

只要单词之间偶尔有空格，WordWrap 就可以很好地模拟这种行为。但是如果你有一个非常冗长的单词 RichEdit wrap 会自动破坏它，而 WordWrap 不会！

如果我现在想访问这些换行符，我可以通过RichEdit.Lines.Text 获取它，它会自动将 CRLF 放在第 80 列。如果我使用 RichEdit.Text，我会得到没有适合 WordWrap 的 CRLF 的原始文本。

正如我已经尝试过的那样，在自定义函数中完成这项任务并非易事，而且它不是一个小函数，但是否有办法使用 TRichEdit 的包装函数？我有一个创建隐藏 RichEdit 的想法，但对于这项任务来说，这似乎很愚蠢，因为我必须计算它的宽度才能进行自动换行 - 我认为这毫无意义。

问题 - 有没有办法强制 WordWrap 剪切无法以其他方式换行的长词？那么如果一个单词有 170 个字符长，它会被包装成 3 行 80 + 80 + 10 并且还要处理之前的单词来填充前后行？

Answer 1

试穿一下尺寸：

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
const
   MAX_LENGTH = 80;
var
  nLineCount:   integer;
  sCurrentLine: string;
begin
  for nLineCount := 0 to RichEdit1.Lines.Count - 1 do
  begin
    // no space in this line
    if (pos(' ',RichEdit1.Lines.Strings[nLineCount]) = 0) then
    begin
      if (length(RichEdit1.Lines.Strings[nLineCount]) > MAX_LENGTH) then
      begin
        // hold the whole line
        sCurrentLine := RichEdit1.Lines.Strings[nLineCount];
        // the current line, make the max value
        RichEdit1.Lines.Strings[nLineCount] := copy(sCurrentLine,1,MAX_LENGTH);
        // build the next line
        RichEdit1.Lines.Add(
        copy(sCurrentLine,MAX_LENGTH + 1,1));
      end;
    end;
  end;
end;