delphi - TMemo 最大宽度

Question

有什么方法可以让 TMemo 将超过 1024 的文本显示为 1 行？
看看这个简单的代码：

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 个字符后自动换行。

Answer 1

TMemo 是本机多行编辑控件的包装器，并受到它的限制。来自信息：多行编辑控件的大小限制：

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

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