TMemo最大宽度

Question

有没有办法让TMemo将超过1024个字符的文本显示在一行中？请看下面这段简单的代码：

procedure TForm1.Button2Click(Sender: TObject);
var
    s: string;
    i: integer;
begin
    s := '';
    for i := 0 to 10000 do
      s := s + 'a';

    Memo1.Clear;
    Memo1.Lines.Add(s);
end;

长文本“s”将显示在多行中。Memo1会在1024个字符后自动换行。

- Kawaii-Hachii

---

这个问题之前已经讨论过了，但据我所知没有权威的解释。 - 500 - Internal Server Error

Answer 1

TMemo是一个封装了本地多行编辑控件的包装器，受到它所具有的限制。来自INFO: Size Limits for a Multiline Edit Control：

多行编辑控件也受以下限制：

• 单行中最多字符数为1024个。
• 一行的最大宽度为30,000像素。
• 最大行数约为16,350。

- Sertac Akyuz