怎样实现Tstrings类型数据的完美copy？

[dulei115]

怎样实现Tstrings类型数据的完美copy，我有以下代码：
var
Strs:Tstrings:
begin
Strs:=TStringList.Create;
Strs.Assign(memo1.Lines);
memo2.Lines.Assign(Strs);
end;
但是，当memo1.Width<memo2.Width时，memo2中将按memo1中的格式换行，即memo2中的每一行后面都有宽度为memo2.Width-memo1.Width的空行。
各位大虾，这个问题怎样解决（注：我要实现数据的copy，而不是地址传送）

[lw549]

Strs:=memo1.Lines;
memo2.Lines:=Strs;

[dulei115]

to lw549(★回帖，接分，学习★)
我要实现数据的copy，而不是地址传送,上面是我举的一个例子，我如果在
memo2.Lines:=Strs;
之前要修改Strs的值呢？或者说，我想把Strs修改后输出，那就把memo1的内容也改了，所以我想知道，怎样“完美copy”。对了，也不要通过添加memo2来完成。

[huojiehai]

Strs.Text := memo1.Lines.Text;

memo2.Lines.Text := Strs.Text;

memo2.Lines.Text := memo1.Lines.Text;

[vuen]

memo2.Lines.Clear;
memo2.Lines.AddStrings(memo1.Lines);

[dulei115]

看来我的问题问得不清楚，我是想知道怎样把memo1的内容copy到Tstrings型变量Strs中去（数据的copy，不是地址传送）。问题已经有答案了，在huojiehai（海天子）的答复里：
Strs.text:=memo1.lines.text;
谢谢各位的回复，结贴！