关于 TStringList.Assign - 回复 u9cm 的问题

问题来源: http://www.cnblogs.com/del/archive/2008/12/29/1230404.html#1416838

譬如有两个 TStringList 对象: List1 和 List2;

List2.Assign(List1) 就是把 List1 的内容复制给 List2;

List2 := List1 相当于给 List1 再取一个名字.

举例:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varList1,List2: TStringList;
beginList1 := TStringList.Create;List2 := TStringList.Create;List1.CommaText := 'AAA,BBB,CCC';List2.Assign(List1); {此时 List1、List2 分别指向了不同的对象}ShowMessageFmt('%s, %p', [List1[0], Pointer(List1)]); { AAA, 00ABAA40 }ShowMessageFmt('%s, %p', [List2[0], Pointer(List2)]); { AAA, 00ABAA90 }List1.Free;ShowMessage(List2[1]); {List1 释放后, List2 还会存在.}List2.Free;
end;procedure TForm1.Button2Click(Sender: TObject);
varList1,List2: TStringList;
beginList1 := TStringList.Create;List1.CommaText := 'AAA,BBB,CCC';List2 := List1;          {此时 List1、List2 指向了同一个对象}ShowMessageFmt('%s, %p', [List1[0], Pointer(List1)]); { AAA, 00ABAA40 }ShowMessageFmt('%s, %p', [List2[0], Pointer(List2)]); { AAA, 00ABAA40 }List1.Free;              {此时 List1、List2 指向的对象释放了}//ShowMessage(List2[1]); {所以这句会出错}
end;end.

关于 TStringList.Assign - 回复 u9cm 的问题相关推荐

博客总目录(2007.11.12 - 2010.4.25)
如果我的学习记录和历程能对你有所帮助, 我非常高兴; 但是 -- "万一" 不是高手.更不是大师, 只是利用工作之余学点东西, 并感觉学得挺吃力. 内容都是写时才会, 难免稚嫩, ...
php tp 模板assign,thinkphp中怎么让assign在另一个模板里使用呢?
比如现在我有a.html和名字为b的控制器,现在我在b控制器里assing('b',$b),那么请问在a.html中怎么调用b控制器中的assign呢? 回复讨论(解决方案) 代码是这样的 Contr ...
【IEEE】IEEE审稿意见与回复-写作指南
IEEE 审稿意见与回复审稿意见-写作指南 0 IEEE 审稿流程与状态解读 1 编辑与审稿人意见 1.0 常用的审稿意见角度语言方面内容和篇幅方面实验方面结论方面 1.1 Reject(un ...
Object.assign与vue $set
Object.assign Object.assign可以用于js对象浅复制.语法:Object.assign(target, source1, source2); 第一个参数为目标对象,后面的为要合 ...
朋友圈评论回复的两种实现方式
关于微信朋友圈的实现思路有很多种,各有不同.我这里用两种方式实现,这两种方式的demo都可以在我的github下载:https://github.com/zhengwenming/WeChat,目前已 ...
android 让应用悬浮,快速回复+app下载
快速回复+应用多窗口,在玩游戏或者看视频的时候可以开启悬浮窗口回复消息,不用特意切换后台回复消息非常方便.可以自由调节软件的窗口大小以及位置,无需root就能使用.内存占用小不用担心会对其他应用造型卡 ...
【一语点醒梦中人】如何优雅地合并两个JSON对象 → Object.assign(a, b)和Object.assign({}, a, b)的区别
var a = {a: 1}; var b = {b: 2}; var c = Object.assign(a, b);/* a对象也会改变,b不变,返回被被修改对象 */ var d = Objec ...
微信公众号开发微信消息回复开发文本消息图片消息开发
开发语言:java 实现功能:发送文字回复文字,发送图片回复图片.token验证.获取access_token等相关功能. 如图: 微信后台接口配置 ,此为测试账号,正式设置也是一样的项目地址:ht ...
lambda在python中的用法_在python中对lambda使用.assign（）方法
我在Python中运行以下代码:#Declaring these now for later use in the plots TOP_CAP_TITLE = 'Top 10 market capit ...

关于 TStringList.Assign - 回复 u9cm 的问题

关于 TStringList.Assign - 回复 u9cm 的问题相关推荐

最新文章

热门文章