如何使用THashedStringList
如何 使用
2023-09-27 14:29:11 时间
1.添加
uses system.IniFiles
2.实例代码:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,System.IniFiles, Vcl.StdCtrls; type Ps=^string; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } gg:THashedStringList; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var str:string; PP:Ps; I:Integer; begin gg:=THashedStringList.Create; gg.Sort; for I := 0 to 500000 do begin str:=IntToStr(i)+'MM'; pp:=Addr(str); gg.AddObject(IntToStr(i),TObject(Integer(pp))); Self.Button1.Caption :=IntToStr(gg.IndexOf(IntToStr(i))); end; end; end.
本例程在delphi XE6下通过。
相关文章
- 如何在Go语言中使用Redis连接池
- Mac苹果电脑出现“磁盘空间不足”通知如何释放磁盘内存空间?
- 如何调试 iPhone Safari 浏览器的CSS兼容问题
- 已解决:TeamViewer使用的设备数量上限如何去掉限制
- 如何面对公司的职能调整
- 如何使用Visual Studio远程调试部署在Azure上的Web App
- 如何用PHP实现Socket服务器
- SpringBoot源码(四) SpringBoot是如何实现自动配置的?
- SQL中如何使用方向键——lrwrap
- 【玩转Docker容器 4】基于Docker搭建Docker私服,以及如何使用Docker私服详解
- 无障碍开发(十三)之盲人是如何使用手机的之屏幕阅读器Screen Reader
- 如何在KVM环境中使用网络安装部署多台虚拟服务器
- 如何以低成本提升IT安全性和合规性?
- 使用chrome console检查css selector/xpath的有效性|百度云盘如何获取文件库中的目录文字
- 如何在匹配行之前使用 grep 显示文件名和行号
- Moodle安全漏洞如何启动远程代码执行?
- 新手必看:如何快速看懂VC++项目
- 如何在mac系统下搭建git服务器
- 如何计算递归算法的时间复杂度
- java中equals和==之间的区别?clone方法的作用,及其为什么要使用clone方法?如何使用clone复制对象?以及深克隆浅克隆