Tmemo

Question

我想把memo1里的文字复制到memo2里，两者的大小不同，但是复制后memo2的文字对不起，如：
memo1:
非典型性肺炎三大罪魁 相对于经典的大叶性肺炎而言，早年支原体肺炎病原体尚未完全明确时，因其表现不够典型而称“非典型性肺炎”
memo2：
非典型性肺炎三大罪魁 相对于经典的大叶性肺炎而言，
早年
支原体肺炎病原
体尚未完全明确时，因其表现不够典型而称“非典型性肺炎”这应该怎么解决呢？！

Answer 1

在程序中写入这个就可以
memo2.lines.assign(memo1.lines);

Answer 2

还有一种方法:
var
   ms: TMemoryStream;
begin
   ms:= TMemoryStream.Create;
   Memo1.Lines.SaveToStream(ms);
   ms.Position:=0;
   Memo2.Lines.LoadFromStream(ms);
   ms.Free;
end;

Answer 3

因为我需要加入其它的文字，所以使用了add功能
如memo1.lines.add('');
memo1加入到2时为memo1.lines.add(memo2.lines.text);这样就出现问题了！

Answer 4

有一种可能那就是：Memo1.Width是否等于Memo2.Width,如果不等，也将出现上面的情况