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;

长文＆＃34;＆＃34;将以多行显示。 Memo1将自动将文本换行为1024个字符。

Answer 1

TMemo是本机多行编辑控件的包装器，受其所具有的限制。来自INFO: Size Limits for a Multiline Edit Control：

  

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

     

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