转载自:http://blog.csdn.net/iseekcode/article/details/4922001 从Delphi5开始VCL中增加了新的Contnrs单元,单元中定义了8个新的类,全部都是基于标准的TList类. TList TList类实际上就是一个可以存储指针的容器类,提供了一系列的方法和属性来增加.删除.重排.定位.存取和排序容器中的类,它是基于数组的机制来实现的容器,比较类似于C++中的Vector和Java中的ArrayList. TList经常用来保存一组对象列表…

转载自:http://blog.csdn.net/jqandjq/article/details/5429137 看了这里标题,大家可能以为我会谈TListBox控件,那就错了.我要谈的是Delphi提供给我们的具有列表性质的类:TStringList.TList和TObjectList.TStringList用来存放字符串,TList存放指针,而TObjectList则存放对象(Object) 在我们使用Delphi的过程中,有很多数据的存储是要靠 数组解决的.虽然Delphi现在已经支持了可…

TOjectList = Class (Tlist); TOjectList继承Tlist,从名字上看就可以知道它是专门为对象列表制作的,那么他到底丰富了那些功能呢? 首先是 TObject 作为对象可以方便使用,无需指针强制. 丰富了 Notify 针对当前状态处理,比如如果是删除就将该点的引用一并清理掉; procedure TObjectList.Notify(Ptr: Pointer; Action: TListNotification);       begin         if…

TStack,TQueue,TObjectList,TObjectStack等等,都在Contnrs.pas单元里,需要手动添加. 不同于TList类,TObjectList对象将销毁任何从列表中删除的对象.无论是调用Delete.Remove.Clear方法,还是释放TObjectList对象,都将销毁列表中的对象.有了TObjectList类,我们就再也不用使用循环来释放对象了. Delphi深度探索(第二版)第五章有详细介绍,还有例子. --------------------------…

AOwnsObjects = true 就是  objectlist释放的时候,里面的对象一并释放. TObjectList对象的创建方法有一个参数:constructor TObjectList.Create(AOwnsObjects: Boolean);从字面就可理解其意义:拥有对象集与否.帮助文档:If the OwnsObjects property is set to true (the default), TObjectList controls the memory of its…

相关资料: http://www.cnblogs.com/rogge7/p/4631796.html delphiTStringList通过AddObject方法添加对象. object里存的只是指向对象的指针,clear只是把指针清除了,对象并没有被释放.TList,StringList等List类型的都需要手动释放. TObjectList通过Add增加对象.可以自动释放对象.…

delphi 组件容器TObjectList代替List TObjectList objList->delete(0); 这个会释放第0行元素的对象 class TTabFormInfo { public: int a; String s1; String s2; TForm *frm; }; 如果是这样的对象,删除的时候frm指针所指的对象也要删除,frm指针为空就不删除,不为NULL就删除. 所以不想删除frm指针的对象,就不用TObjectList. 但是如果仅仅是简单类型或frm是自己n…

网上收集了一点东西 TOBJECTLIST里,有自带的排序功能 TLIST,TSTRINGLIST也有,MS是一样的 SORT里有一个参数: Compare:TListSortCompare 那我们先了解一下 TListSortCompare type HELP原文:TListSortCompare is the type for callbacks that compare two items in a list. 即 TListSortCompare  是一个比较两个列表项的的回调类型 不知…

所在的单元 TList(Classes.pas) TObjectList(Contnrs.pas) TObjectList对象的创建方法有一个参数: constructor TObjectList.Create(AOwnsObjects: Boolean); 从字面就可理解其意义:拥有对象集与否. 帮助文档 If the OwnsObjects property is set to true (the default), TObjectList controls the memory of it…

八.使用结构体而不是结构体指针: 很重要 一.指定 Owner 后, 随 Owner 连带释放: //uses Vcl.StdCtrls, Vcl.ExtCtrls; var panel: TPanel; procedure TForm1.Button1Click(Sender: TObject); begin panel := TPanel.Create(Self); panel.Parent := Self; with TButton.Create(panel) do //AOwner =…

单元文件是Pascal源文件,扩展名为.pas. 有三种类型的单元文件: 窗体/数据模块和框架的单元文件(form/data module and frame units),一般由Delphi自动生成. 组件的单元文件(component units),由您或者Delphi生成. 通用的单元文件(general-purpose units),有您创建. 下面让我们看看基本的Pascal单元文件结构是如何的? Step1.在主菜单上选择[File | New | Unit],Delphi将创建一个…

delphi 中TStringList 通过function AddObject(const S: string; AObject: TObject): Integer; 方法添加了一个对象,请问我在调用Clear 方法的时候该对象有没有被释放   object里存的只是指向对象的指针,clear只是把指针清除了,对象并没有被释放.TObjectList可以自动释放对象,剩下的TList,StringList等List类型的都需要手动释放.…

Delphi 2009 新增了泛型容器单元: Generics.Collections, 同时还有一个 Generics.Defaults 单元做支持. Generics.Collections 包含了以下实用类:TList<T>TQueue<T>TStack<T>TDictionary<TKey,TValue>TObjectList<T>TObjectQueue<T>TObjectStack<T>TObjectDicti…

原始版本: Henri Gourvest <hgourvest@gmail.com> 1.2版本 BUG修改: 1.对于文件名中带有空格的文件, 无法压缩, 原因是1488行, 压缩调用的是TStringList.Delimiter 来拆分文件字符串, 而空格是默认分行符, 导致文件名错误 2.解压缩函数, 如果目标文件已存在并且为只读属性时, 报错, 原因是1105行 创建文件流的时候直接使用了TFileStream.Create(path, fmCreate)导致 功能增加: 1.增加了一…

(* * Unit owner: d10.天地弦 * blog: http://www.cnblogs.com/dksoft * homePage: www.diocp.org * * 2015-02-22 08:29:43 * DIOCP-V5 发布 * * 1. 修复ex.tcpclient编码问题,发送大数据时,无法解码的bug * 2015-08-17 14:25:56 *)unit diocp_tcp_client; {$I 'diocp.inc'} interface uses di…

本文来自:http://www.cnblogs.com/hezihang/p/6083555.html Delphi采用接口方式设计模块,可以降低模块之间的耦合,便于扩展和维护.本文提供一个实现基于接口(IInterface)方式的监听器模式(观察者模式.订阅者模式),实现一个自动多播器. 下面程序在Berlin下测试通过,其他Delphi版本未测试,未进行跨平台测试(应该可以支持) 1.prepare 在观察者模式中采用接口,可以将相关函数汇合为接口. 举例:假设我们窗口有一个TTreeVie…

_Stream ADODB_TLB akTop, akLeft, akRight, akBottom Controls Application (the variable not a type) Forms Beep SysUtils or Windows (different functions) CGID_EXPLORER ShlObj CN_BASE Controls CoInitialize ActiveX CopyFile Windows CoUnInitialize ActiveX…

这个实例在windows.OS X.IOS和Android等平台运行正常.本文参考这个网站提供的方法:http://zarko-gajic.iz.hr/firemonkey-mobile-android-ios-qr-code-generation-using-delphi-xe-5-delphizxingqrcode/ 代码中用到的DelphiZXingQRCode.Pas点这下载 1 unit Unit3; 2 3 interface 4 5 uses 6 System.SysUtils,…

delphi 组织结构 在Delphi中,一个正在开发的应用程序可以被称作项目或者工程.一般地,一个项目主要由dpr(项目).pas(单元)和dfm(窗体)三种文件组成,另外还有一些附属文件,如res(资源)文件等.在源代码中,项目文件用关键字program标识,单元文件用unit标识. 通常,一个项目只有惟一的dpr文件.一个dfm文件总是有对应的pas文件,但是pas文件可以没有对应的pas文件. 如果打开Delphi,选择菜单File|New|Application,则可以新建一个项目.该…

http://www.techques.com/question/1-4073197/How-do-I-send-and-handle-message-between-TService-parent-thread-and-child-thread? I took a look at OmniThreadLibrary and it looked like overkill for my purposes. I wrote a simple library I call TCommThread.…

http://delphi.cjcsoft.net//viewthread.php?tid=635 在delphi线程中实现消息循环 在delphi线程中实现消息循环 Delphi的TThread类使用很方便,但是有时候我们需要在线程类中使用消息循环,delphi没有提供.   花了两天的事件研究了一下win32的消息系统,写了一个线程内消息循环的测试.   但是没有具体应用过,贴出来给有这方面需求的DFW参考一下.希望大家和我讨论.   {---------------------------…

问题现象:写了一个TObjectList的Sort方法,但是写成ObjectList.Sort(@SortBridgeEDOReportQtys); 再F9时提示“E2036 Variable required”. 问题原因:[DCC错误] MainFrame.pas(4340):要求E2036变解决方法:ObjectList.Sort(@SortBridgeEDOReportQtys); 改成ObjectList.Sort(@MainFrame.SortBridgeEDOReportQtys)…

我们知道,通过Schema,一个DataAbstracService对应一个数据库:一个服务器可以包含多个DataAbstracService,从而实现对多个数据库的操作.通过事件处理我们可以在一个DataAbstracService中去调用另一个DataAbstracService,从而实现同时操作多个数据库.目前在版本7.0.65中通过在Schema中写脚本还不能做到这一点.本人少量的改写了DataAbstract后,做到了这一点.下面是要修改的两个类定义: 1.修改uDAEcmaScrip…

Some weeks ago a customer asked to me if it is possibile serialize a TList of objects. “Hey, you should use a TObjectList for this”, I said, but he absolutely needs (I dont know why) of a TList. This is the (simple) sample code tested with Delphi XE2…

在delphi线程中实现消息循环 在delphi线程中实现消息循环 Delphi的TThread类使用很方便,但是有时候我们需要在线程类中使用消息循环,delphi没有提供.   花了两天的事件研究了一下win32的消息系统,写了一个线程内消息循环的测试.   但是没有具体应用过,贴出来给有这方面需求的DFW参考一下.希望大家和我讨论.   {-----------------------------------------------------------------------------…

明天就是五一节了,辛苦了好几个月,借此机会应该尽情放松一番.可是想到Blog好久没有写文章,似乎缺些什么似的.这几个月来在项目中又增长了许多经验,学到许多实际应用的知识.不如把一些比较有用的记录下来,供朋友们参考可好. 我想到Delphi的事件,那可真是个方便的东西,初学者在窗体上拉几个控件,并指定它们的事件,写几句代码,立刻就得到他们想要的效果.可是事件在方便的同时也有一个不足之处,就是只能指定一个接收事件的对象,这在某些应用中会受收限制,比如多视图对应一个业务逻辑时,当一个业务对象想通知视图…

Every Delphi class is defined internally by its vmt—​its virtual-method table. The vmt contains a list of pointers to a class’s virtual methods. It also contains some other class-specific information, including the name, the size, a reference to the…

不是只有实例才有VMT,举个例子,各实例的VMT地址是相同的: Use System.Contnrs; procedure TForm1.BitBtn2Click(Sender: TObject); var ObjList1, ObjList2: TList; p1, p2: Pointer; begin ObjList1 := TObjectList.Create(True); ObjList2 := TObjectList.Create(True); if ObjList1 = ObjLis…

前言 在C++的语言基础当中,除了物件导向.事件驱动的概念之外,模版设计(Template)也是非常重要的一环.然而,C++的开发人员能够善用模版设计的并不多.模版设计这个好物,一般还有一个名称,就是泛型 (Generic),这个好物在Delphi 2009 之后,也已经被加入到 Object Pascal里面了,只是我们实在很少用到它. 然而,江湖一点诀,说破没秘诀,大家对于泛型的少用,很多是因为不知道有这个功能,其次是知道有这个功能却不知道怎么使用. 所以,我们这一篇就来深入浅出的介绍一下『…

即将发布的kbmMW,实现了SmartBinding,SmartBinding的设计目标是: 必须易于使用 必须最小化或完全删除锅炉板代码.(你看到这里的趋势了吗?... kbmMW从那时开始就是为了让事情变得简单!) 必须有良好的表现 必须具有较低的CPU,内存和大小 绝不能导致无休止的圆形赛事列车 应该使用各种数据和控件 应该是灵活和可扩展的 必须接近实时 必须易于重构 应该与kbmMW的其他功能很好地配合 即使不使用kbmMW的其他功能也应该可用 看一个简单的属性绑定: Binding.B…