Delphi中Hash表的使用方法！

在游戏开发中经常需要保存一些数据结构，并且在使用的时候需要快速的查找出来．Hash表正是为了提高检索速度而设计出来的．下面我就将我在用Delphi开发中使用Hash表的方法写出来，希望对大家有一定的帮助！

在Delphi中有一个THashedStringlist类，使用这个类可以实现Hash表的操作．使用这个类需要引用IniFiles头文件．

例如：我们定义的数据结构是：

RTest = record

Key:Integer;

Name:String[20];

Sex:Boolean;

Age:Integer;

end;

PTest = ^RTest ;

１：创建Hash表．

ScHash:=THashedStringlist.Create;

２：将数据结构加入Hash表中．

var

Index:Integer;　

p_Test:PTest;

Index:=ScHash.IndexOf(IntToStr(p_Test.Key));
    if Index=-1 then
    begin
      ScHash.AddObject(IntToStr(p_Test.Key),TObject(Integer(p_Test)));
    end;

在加入Hash表的时候，首先我们检查看这个Key是否在Hash表中，如果Index=-1则说明此Key不在Hash表中，则我们将这个结构指针加入到Hash表中．

３：将数据结构从Hash表中删除．

var

Index:Integer;

t_Object: TObject;

Index:=ScHash.IndexOf(IntToStr(p_Test.Key));
    if Index<>-1 then
    begin
      t_Object:=ScHash.Objects[Index];
      ScHash.Delete(Index);
    end;

４：删除Hash表

在删除Hash表的时候和一般的Tlist删除一样，使用Free.

ScHash.Free;

以上就是简单的Hash表操作步骤，其中需要注意的是，在使用DELPHI7的使用hash表的时候，一定要安装补丁．

©著作权归作者所有：来自51CTO博客作者fxh7622的原创作品，如需转载，请注明出处，否则将追究法律责任

职场 delphi 休闲

微博 QQ 微信

fxh7622

110篇文章，107W+人气，8粉丝

播客链联合创始人，区块链坚定拥护者！

关注

Ctrl+Enter 发布

发布

取消

13条评论

按时间倒序按时间正序

猜你喜欢

刺猬文│从启动方式来看播客链的运行机制—设置验证者狐狸文│区块链发展悖论 Java线程：线程的调度-休眠我们不得不面对的中年职场危机职场终极密籍--记我的职业生涯用光影魔术手制作一寸照片（8张一寸）我的IT职场生涯: 毕业4年，月薪过万 Linux关闭休眠和屏保模式年薪从0到10万-我的IT职场经验总结 Windows7删除休眠文件hiberfil.sys节省大量C盘空间致IT同仁 — IT人士常犯的17个职场错误 “跳槽加薪”现象，无奈的职场规则智能合约编程语言-solidity快速入门（下） Android中适配器的notifyDataSetChanged()为何有时不刷新如何在Spring Boot中使用Hibernate Natural ID 从hook开始聊聊那些windows内核数据结构 Scala的actor 正则性能调优 windows下kafka+ELK的日志系统 Nginx下，请求本机另外Host很慢

扫一扫,领取大礼包

关注

fxh7622

转载于:https://blog.51cto.com/fxh7622/16633