delphi控件中的 Tag 属性巧用

最新推荐文章于 2020-12-16 16:34:16 发布

转载最新推荐文章于 2020-12-16 16:34:16 发布 · 4.4k 阅读

本文介绍了如何巧妙地使用Delphi中的Tag属性来存储不同类型的变量，如字符串，并提供了具体的实现示例。此外，还讨论了Tag属性在实际编程中的应用，包括作为资源文件的索引和与.INI文件配合使用的方法。

delphi控件中的 Tag 属性巧用
━━━━━━━━━━━━━━━━━━━━━━━━━━

　　几乎所有的Delphi组件都有Tag属性，Tag是LongINT类型，其实，通过编程技巧，还可以利用它存储其它的数据类型，甚至对象，下面以存储字符串为例作简要说明：

　　PChar是Pointer指针类型，Pointer与LongINT占用相同的内存空间，这点可以通过
　　label1.Caption :=inttostr(sizeof(pointer));
　　label2.Caption :=inttostr(sizeof(LongInt));
来验证。

　　我们新建一个Form，放上两个TEdit 和一个Button，在Button的OnClick事件输入以下代码：
　　edit1.Tag := LongInt(NewStr(edit1.Text ));
　　edit2.Text := PString(edit1.Tag)^; //把Edit1的内容拷贝至Edit2中
　　DisposeStr(PString(edit1.Tag)); //释放指针占用的内存空间

　　最后一句的内存释放很重要，如果指针不再使用，切记把它所占的内存空间释放。
　　实际上，灵活使用Tag属性，能为你的程序增辉不少：

　　 1. 如果程序引用的字符串或其他类型的数据较多或存在于整个程序生存期，不妨把它们建成一个资源文件，然后用Tag属性作为索引来调用它们；

　　 2. 使用＊.INI文件保存程序所需要保存的数据，例如：
　　［content］
　　String1=Jacky {name}
　　String2=BeiJing {address}
　　String3=12345678 {Telphone}
　　那么就可以这样读出数据
　　 var s1: string;MyIni:TiniFile;
　　 …
　　 MyIni:=TiniFile.Creat(`contentsave.ini');
　　 s1 := MyIni.ReadString(`content',`string'＋IntToStr(Tag),`'); //Tag为某个组件的Tag属性值