文档章节

分析 TStringList 存取对象的特点 - 还是回复 Test1234 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 989
阅读 2
收藏 0
点赞 0
评论 0
问题来源: http://www.cnblogs.com/del/archive/2008/04/26/973346.html#1171927

在 Delphi 中存储系列对象, 大家常用 TList 类; 有了 TObjectList(在 Contnrs 单元)以后, 存储对象就有了更好的选择, 因为从 TObjectList 列表中移除的对象同时会得到释放.

很少有人使用 TStringList 储存对象, 殊不知用 TStringList 储存对象也有 TList 和 TObjectList 所不及的优势.

我想在继续探讨前先重复一个概念: 对象的 "指针" 和 "首地址":
我们通过对象的指针可以找到对象, 也就是说指针是指向了对象; 对象也不过是一系列数据, "指针" 一般是指向这组数据的 "首地址".
下面代码可以获取 Button1 对象的 "指针" 和 "首地址":
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessageFmt('指针: %d', [Integer(@Button1)]);  {14910416}
  ShowMessageFmt('首地址: %d', [Integer(Button1)]); {15011440}
end;

 
 
 
 
 

 

 

  
我们再看下 TList、TObjectList 和 TStringList 添加对象的方法声明:
TList       : function Add(Item: Pointer): Integer;
TObjectList : function Add(AObject: TObject): Integer;
TStringList : function AddObject(const S: string; AObject: TObject): Integer;

 
 
 
 
 

 

 

  
可以看出, TList 添加的只是指针; TObjectList 和 TStringList 添加的类型是对象.
添加对象时, 是把整个对象的数据都添加进去吗? 当然不是, 只要记住对象的首地址就可以了(应该也是用类似指针的办法, 我没仔细研究), 测试代码:
procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  ShowMessageFmt('指针: %d', [Integer(@Button1)]);  {14910416}
  ShowMessageFmt('首地址: %d', [Integer(Button1)]); {15011440}

  List := TStringList.Create;
  List.AddObject('btn', Button1);
  ShowMessageFmt('取出: %d', [Integer(List.Objects[0])]); {15011440, 可以看出相同与上面的首地址}
  List.Free;
end;

 
 
 
 
 

 

 

  
通过 TStringList 的 AddObject 和 InsertObject 方法可以添加对象;
用 Objects[] 属性取出对象; 用 List[] 取出字符串. 示例:
procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  obj: TObject;
  str: string;
begin
  List := TStringList.Create;
  List.AddObject('btn', Button1);    {添加}

  obj := List.Objects[0];            {取出对象}
  str := List[0];                    {取出字串}

  {使用对象, 有个前提:我们知道它属于 TButton}
  ShowMessage(TButton(obj).Caption); {Button1}
  ShowMessage(str);                  {btn}

  List.Free;
end;

 
 
 
 
 

 

 

  
添加对象的指针可以吗? 可以, 但需要转换成无类型指针, 例:
procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  obj: TObject;
begin
  List := TStringList.Create;
  List.AddObject('btn', Pointer(@Button1));
  List.AddObject('btn', Pointer(Button1)); {这样也可以}
  obj := List.Objects[0];
  ShowMessage(TButton(obj).Caption); {显示: Button1}
  List.Free;
end;

 
 
 
 
 

 

 

  
既然也可以添加指针, 那我们也可以添加不属于 TObject 的结构等其他指针;
假如不能添加指针, 也将无法添加结构, 因为结构不属于 TObject. 举例:
type
  PMyRec = ^TMyrec;
  TMyRec = record
    s: string;
    i: Integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  R1,R2: TMyRec;
begin
  List := TStringList.Create;

  R1.s := 'abc';
  R1.i := 123;
  List.AddObject('rec', Pointer(@R1)); 
  //List.AddObject('rec', @R1); {结构比较特殊, 不转无类型指针也可以}

  R2 := PMyRec(List.Objects[0])^;
  ShowMessageFmt('%s,%d', [R2.s, R2.i]); {abc,123}

  List.Free;
end;

 
 
 
 
 

 

 

  
前面说到 TStringList 还会有点优势; 首先得承认它的劣势, 因为它是两组数据构成的列表, 在数据量特别大的时候效率上会有劣势; 现在说说它的优势:
从 TList 和 TObjectList 取出的对象类型是未知的(当然作者知道), 所以一般只能存储单一类型的对象;
因为 TStringList 有两个字段, 我们可以用那个 String 字段来储存对象类型, 从而让 TStringList 可以同时储存更多类型的对象. 举例:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
type
  PMyRec = ^TMyrec;
  TMyRec = record
    s: string;
    i: Integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  R1,R2: TMyRec;
  str: string;
  i: Integer;
begin
  List := TStringList.Create;

  R1.s := 'abc';
  R1.i := 123;
  str := '我是字符串';
  List.AddObject('1', @R1);           {用 1 表示结构 TMyRec}
  List.AddObject('2', Sender);        {用 2 表示 TButton}
  List.AddObject('3', Self);          {用 3 表示 TForm1}
  List.AddObject('4', Pointer(str));  {用 4 表示 String}

  for i := 0 to List.Count - 1 do
  begin
    case StrToIntDef(List[i], 0) of
      1: begin
           R2 := PMyRec(List.Objects[i])^;
           ShowMessageFmt('%s,%d', [R2.s, R2.i]);       {abc,123}
         end;
      2: ShowMessage(TButton(List.Objects[i]).Caption); {Button1}
      3: ShowMessage(TForm1(List.Objects[i]).Text);     {Form1}
      4: ShowMessage(PChar(List.Objects[i]));           {我是字符串}
    end;
  end;

  List.Free;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/04/26/1172589.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
objective-c 关于 self 的用法总结

今天新同事问了一些关于什么时候用全局变量,什么时候用self.赋值的问题,所以笔者在此说明一下。 何时使用self.在网上搜索或者论坛里的回复大多都是简简单单的说这与objc的存取方法有关,如...

鉴客 ⋅ 2011/12/14 ⋅ 2

LINUX类主机JAVA应用程序占用CPU、内存过高分析手段

转载声明:本文为DBA+社群原创文章,转载必须连同本订阅号二维码全文转载,并注明作者名字及来源:DBA+社群(dbaplus)。 做为一个IT运维人员,通常在运维过程中会遇到各种各样的问题,系统问...

丁启良 ⋅ 2015/12/04 ⋅ 0

聚合(根)、实体、值对象精炼思考总结

聚合根、实体、值对象的区别? 从标识的角度: 聚合根具有全局的唯一标识,而实体只有在聚合内部有唯一的本地标识,值对象没有唯一标识,不存在这个值对象或那个值对象的说法; 从是否只读的...

大糊涂 ⋅ 2015/06/11 ⋅ 0

.NET中MD5编码的内存泄露问题分析

问题描述与定位 最近一个项目中要加工处理700多万条的三元组数据,总是在执行到二三百万条的时候就报内存溢出了。不断的检查代码,各种对象局部化;使用.net profiler分析堆栈内存,发现有大...

caltrop ⋅ 2015/12/29 ⋅ 14

数据库系统概述

什么是数据库 数据库(Database DB)指按照数据结构来组织,存储和管理数据的仓库,是存储在一起的相关数据的集合, 什么是数据库管理系统 数据库操作系统(Database Management System ,DBMS)是一...

乌龟漫步 ⋅ 2016/12/20 ⋅ 0

你的 mixin 兼容 ECMAScript 5 吗

我最近在与客户合作的项目中,需要充分利用的 ECMAScript 5,在此我遇到一个非常有趣的问题。 该问题源于一个非常常见的模式: mixin (译注:很多文章翻译成「混入」,我觉得还是保留原文吧...

文艺小青年 ⋅ 2017/06/29 ⋅ 0

分布式系统开发常见问题-1. session的复制与共享 2. 分布式缓存的设计

session的复制与共享 在web应用中,为了应对大规模访问,必须实现应用的集群部署.要实现集群部署主要需要实现session共享机制,使得多台应用服务器之间会话统一, tomcat等多数主流web服务器都采...

疯狂的兔子 ⋅ 2015/04/13 ⋅ 0

[转载红鱼儿]kbmmw 开发点滴:TkbmMWLock用法

TStringList不是线程安全的,当我们在线程用到他是,要做保护。方法有两种,一种是用delphi自带的Critical,另外一种就是kbmMW为我们提供的TkbmMWLock类。 现在我们看看如何用TkbmMWLock为T...

xalion ⋅ 2012/10/23 ⋅ 0

「译」你的 mixin 兼容 ECMAScript 5 吗?

原文:Are your mixins ECMAScript 5 compatible? 作者:Nicholas C. Zakas 译文:你的 mixin 兼容 ECMAScript 5 吗? 译者:justjavac 好久没更新博客了,今天在 nczonline 看到了这篇博客,...

justjavac ⋅ 2012/12/12 ⋅ 0

数据库知识复习之数据库系统概述

数据库是数据管理的最新技术,是计算机科学的重要分支。从联机事务处理(On-Line Transaction Processing,OLTP)到联机肥西处理(On-Line Analysis Processing,OLAP),从一般企业管理到计...

IT阳光罗诺 ⋅ 2017/07/15 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

从零开始搭建Risc-v Rocket环境---(1)

为了搭建Rocke环境,我买了一个2T的移动硬盘,安装的ubuntu-16.04 LTS版。没有java8,gcc是5.4.0 joe@joe-Inspiron-7460:~$ java -version程序 'java' 已包含在下列软件包中: * default-...

whoisliang ⋅ 7分钟前 ⋅ 0

大数据学习路线(自己制定的,从零开始学习大数据)

大数据已经火了很久了,一直想了解它学习它结果没时间,过年后终于有时间了,了解了一些资料,结合我自己的情况,初步整理了一个学习路线,有问题的希望大神指点。 学习路线 Linux(shell,高并...

董黎明 ⋅ 13分钟前 ⋅ 0

systemd编写服务

一、开机启动 对于那些支持 Systemd 的软件,安装的时候,会自动在/usr/lib/systemd/system目录添加一个配置文件。 如果你想让该软件开机启动,就执行下面的命令(以httpd.service为例)。 ...

勇敢的飞石 ⋅ 15分钟前 ⋅ 0

mysql 基本sql

CREATE TABLE `BBB_build_info` ( `community_id` varchar(50) NOT NULL COMMENT '小区ID', `layer` int(11) NOT NULL COMMENT '地址层数', `id` int(11) NOT NULL COMMENT '地址id', `full_......

zaolonglei ⋅ 24分钟前 ⋅ 0

安装chrome的vue插件

参看文档:https://www.cnblogs.com/yulingjia/p/7904138.html

xiaoge2016 ⋅ 26分钟前 ⋅ 0

用SQL命令查看Mysql数据库大小

要想知道每个数据库的大小的话,步骤如下: 1、进入information_schema 数据库(存放了其他的数据库的信息) use information_schema; 2、查询所有数据的大小: select concat(round(sum(da...

源哥L ⋅ 49分钟前 ⋅ 0

两个小实验简单介绍@Scope("prototype")

实验一 首先有如下代码(其中@RestController的作用相当于@Controller+@Responsebody,可忽略) @RestController//@Scope("prototype")public class TestController { @RequestMap...

kalnkaya ⋅ 54分钟前 ⋅ 0

php-fpm的pool&php-fpm慢执行日志&open_basedir&php-fpm进程管理

12.21 php-fpm的pool pool是PHP-fpm的资源池,如果多个站点共用一个pool,则可能造成资源池中的资源耗尽,最终访问网站时出现502。 为了解决上述问题,我们可以配置多个pool,不同的站点使用...

影夜Linux ⋅ 今天 ⋅ 0

微服务 WildFly Swarm 管理

Expose Application Metrics and Information 要公开关于我们的微服务的有用信息,我们需要做的就是将监视器模块添加到我们的pom.xml中: 这将使在管理和监视功能得到实现。从监控角度来看,...

woshixin ⋅ 今天 ⋅ 0

java连接 mongo伪集群部署遇到的坑

部署mongo伪集群 #创建mongo数据存放文件地址mkdir -p /usr/local/config1/datamkdir -p /usr/local/config2/data mkdir -p /usr/local/config3/data mkdir -p /usr/local/config1/l......

努力爬坑人 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部