• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

Delphi中Hash表的使用方法

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
版权声明：原创作品，允许转载，转载时请务必以超链接形式标明文章 原始出处 、作者信息和本声明。否则将追究法律责任。http://fxh7622.blog.51cto.com/63841/16633
在游戏开发中经常需要保存一些数据结构，并且在使用的时候需要快速的查找出来．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表的时候，一定要安装补丁．

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
matlab中的@函数发布时间：2022-07-18
下一篇：
从协方差矩阵的估算领会MATLAB矩阵编程思维发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap