怎样实现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,而不是地址传送)
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,而不是地址传送)
解决方案 »
- 求助高人,关于如何解决FormResize下控件移动时发生的颤抖
- 我做的工程超过50个窗口类了,怎办好?
- 用什么语句可以让程序在已有的数据库文件中建立一个新表?
- 如何清除Image控件的图像??
- 函数或者过程的形参前缀是"a"表示什么?
- ADOquery + sqlserver 问题 (初学者问题)
- 绝对疑难杂症……如何将project options里的FORMS里main form:里的选择去掉?
- 怎么用indy9 idhttp提交下面这些
- 进来看看,你会有新的收获!!!
- 请问,当新加的记录的"编号"与数据库中的记录的"编号"重号时,数据库会还会一个异常,我要怎样扑捉到这个异常,并让用户看到我告诉用户的话?
- 请教高手!电子白板是怎么实现的~
- ??????????????????
memo2.Lines:=Strs;
我要实现数据的copy,而不是地址传送,上面是我举的一个例子,我如果在
memo2.Lines:=Strs;
之前要修改Strs的值呢?或者说,我想把Strs修改后输出,那就把memo1的内容也改了,所以我想知道,怎样“完美copy”。对了,也不要通过添加memo2来完成。
Strs.Text := memo1.Lines.Text;memo2.Lines.Text := Strs.Text;memo2.Lines.Text := memo1.Lines.Text;
memo2.Lines.AddStrings(memo1.Lines);
Strs.text:=memo1.lines.text;
谢谢各位的回复,结贴!