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是本机多行编辑控件的包装器,受其限制.来自INFO:多行编辑控件的大小限制:

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

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