文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 246
阅读 7
收藏 0
问题来源: 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;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  List1,List2: TStringList;
begin
  List1 := 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);
var
  List1,List2: TStringList;
begin
  List1 := 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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/12/29/1364778.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
php微信公众平台无法发送图片

@微度网络 你好,想跟你请教个问题:你好,看了你发的关于微信公众平台的帖子后,就很想咨询您问题,我做的接口只能回复文本,而对于图片却始终不成功,希望大哥能帮帮忙,万分感谢,还有就是...

司谋客
2013/07/21
7.5K
15
关于微信公众号开发,被动回复5秒没有响应,

@黄冠能 你好,想跟你请教个问题:你好,兄弟。我想请教你一个问题,关于微信公众号开发,被动回复5秒没有响应,怎么切换客服接口回复呀。谢谢啦

90年的百事
2016/07/08
302
1
Martin Fowler 在 ThoughtWorks 内部关于版本控制工具的调查

从2010年2月23日至3月3日,Martin Fowler 在 ThoughtWorks 内部通过开发人员邮件列表进行了一个关于版本控制工具的小调查,共收到99个回复。下面是调查选项定义和调查结果: 非常好 (如果不...

crazyinsomnia
2010/03/17
508
0
jquery路径问题

关于链接跳转的问题。比如: index.html页面有个链接:信息, 点击后到msg.html页面,msg.html页面有一个按钮可以打开一个回复信息的弹出框, 回复 现在出现的问题是:我点击回复后,本来应该...

Geomen
2012/09/25
389
0
4.6预告先导篇——你们关心的几个问题:关于页、文档、内网推送等

非常感谢大家对Smobiler的支持,从4.6版本的建议征集中,整理了几个大家关注得比较多的问题,在此单独列出答复。 其他的问题也已在原帖中一一答复,原帖地址:https://www.smobiler.com/foru...

amanda112
今天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

windbg调试C源码级驱动

联机方式不多说了。我博客里有,英文的。 windbg联机文档 https://docs.microsoft.com/zh-cn/windows-hardware/drivers/debugger/debug-universal-drivers---step-by-step-lab--echo-kernel......

simpower
41分钟前
0
0
redis快照和AOF简介

数据持久化到硬盘:一是快照(snapshotting),二是只追加文件(append-only file AOF) 快照 核心原理:redis某个时间内存内的所有数据写入硬盘 场景:redis快照内存里面的数据 1. 用户发送bgsav...

拐美人
42分钟前
0
0
这个七夕,送你一份程序员教科书级别的告白指南

给广大爱码士们的高能预警: 今天,就是七夕了…… (单身非作战人群请速速退场!) 时常有技术GG向个推君抱怨 经过网民多年的教育 以及技术人持之以恒的自黑 冲锋衣狂热分子·格子衫骨灰级粉...

个推
46分钟前
0
0
python爬虫日志(15)cookie详解

转载:原文地址 早期Web开发面临的最大问题之一是如何管理状态。服务器端没有办法知道两个请求是否来自于同一个浏览器。那时的办法是在请求的页面中插入一个token,并且在下一次请求中将这个...

茫羽行
47分钟前
0
0
qlv视频格式转换器

  腾讯视频中的视频影视资源有很多,小编经常在里面下载视频观看,应该也有很多朋友和小编一样吧,最近热播的电视剧也不少,如《香蜜沉沉烬如霜》、《夜天子》还有已经完结的《扶摇》,这么...

萤火的萤火
51分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部