Delphi中有关TStrings 管理对象的用法心得
sl:= TStringsList.Create;
1. 增加对象:AddObject 增加一个对象的引用到TStringList中,同时在堆中增加一个对象,TStringList中的引用指向堆中的对象,
对象的引用存在Object[i]中,对象名存在sl[i]中。
2. 释放对象:先用Object[i].Free释放堆中的对象,再将TStringList中的引用变量置空(Object[i] := nil)。
3. delete方法删除的是对象引用和对象名,并非删除对象。
4. clear属性可清除所有的对象名和对象引用。
5. size属性用于描述流存储空间的大小,由于TStream为抽象类,具体的存储媒介还不确定,因此它实际上是通过调用派生类的保护虚方法SetSize来
改变存储空间大小的。
6. position属性是当前流读取操作位置的指针,通过调用seek方法来改变指针位置。position指定的位置不一定已经分配了存储空间,空间的分配是发生在
write方法时,即写的时候是按position来找要存储数据的地方,如果position>size则重新分配存储空间。
分享到:
相关推荐
关于 Delphi字符串、数组的函数,包含【Copy】、【Concat】等函数
delphi:子符串替换函数 delphi:TStrings的详细用法
json4delphi JSON for Delphi,支持较早版本的Delphi(6或更高版本) 对象-pascal本机代码,仅使用TList,TStrings和TStringList类例子: var Json: TJson; Str: Stringbegin Json := TJson.Create(); // put Json....
执行DOS命令的DELPHI控件: property StdOutRead :THandle read fOutputRead; property StdInWrite :THandle read fInputWrite; property StdErrRead :THandle read fErrorRead; procedure ...
function TableToClassInfo(ATableName: string): TStrings; //取得SQLServer字段的类型,返回相应Delphi变量类型 function GetColumnType(AType: integer): string; //取得SQLServer字段的类型,返回...
源码包中一共介绍了4种在Delphi程序中动态地建立和使用别名的方法,每种方法都附有完整的源码文件,AliasN为数据库别名,DbLocat为数据库别名对应的目录,DriverN为驱动类型,对数据库各组件属性进行设置,Tstrings是...
在Delphi中,对对象的调用实际上采用了两个步骤,首先是把对象地址放入eax寄存器中,然后call类方法,所以如果不使用继承类增加数据的话,用父类调用继承类的方法是没问题的,所以其实这样的方法在D7中也可以使用,...
TStrings 基本字符串管理对象。 TCompartStringList 是TStrings的扩充,可以指定分隔符。 TStringList 是TStrings的扩充,可以给每一个串命名。 TVisualManager 可视化对象的管理对象,可以管理一组Fir组件或PB的...
Delphi编写的日志记录组件源代码,从中可以学习自定义组件的一些技巧,如注册到组件面板、添加自定义图标等。 日志组件具有以下属性及方法: public { Public declarations } procedure AddLog(p_Info: string); /...
vs2005自定义控件,实现了delphi中TStrings(TStringList)一样的效果
Borland公司日前发布了其最新版Windows开发工具Delphi 2005,新版软件在同一开发环境中加入了对Win32、.Net、Delphi和C#的支持,同时集成了Borland应用生命周期管理工具。 代号Diamondback的新版Delphi是为支持...
//取得去掉属性的路径,文件名也作为DIR function PathExtractFileNameNoExt(Filename: string): string; //判断两路径是否相等 function PathComparePath(const Path1, Path2: string): Boolean; //取得给定...
//▎====================...Filter,FileList:TStrings;ContainSubDir:Boolean; lb: TLabel=nil); { 功能说明:查找一个路径下的所有文件。 参数: path:路径,filter:文件扩展名过滤,FileList:文件列表, ContainSubDir...
procedure GetDisks(Strings: TStrings { TStringList ??? }); //获取所有盘符 procedure HideApp; //隐藏程序 function GetTmpPath: String; //取得WINDOWS的Temp路径 function GetSysPath: String; //取得...
TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 常规的用法大家都知道,现在来讨论它的一些高级的用法。
Delphi中遍历目录和遍历目录及子目录函数 function GetFilenames(FilePath,ExtMask: String):TStrings; //遍历目录 function GetFilenamesEx(FilePath,ExtMask :String):TStrings; //遍历目录及子目录
procedure DebugLog_SetStrings(LogsStrings:TStrings); procedure DebugLog_Start; procedure DebugLog_Stop; *调用方式: 如果需要设置自定义日志文件名及路径则需要先调用Debug_InitiLog() ,然后直接使用...
1) 自动识别当前系统的语言 2) 能自动设置数值型属性,对于引用型属性(目前只支持tstrings) 3) 支持导出目前窗口中控件属性功能,使系统变成多语言工作简单化 4)支持任意中语言
0060 TStrings与TStringList的使用 37 0061 如何实现窗体文件转换 37 第3章 程序算法 39 3.1 计算类算法 40 0062 如何计算1~100的阶乘和 40 0063 如何实现最大公约数 40 0064 如何实现最小公倍数 41 ...