相关疑难解决方法(0)

有没有办法让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个字符后的文本.