科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件Delphi中Hash表的使用方法

Delphi中Hash表的使用方法

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

作者:佚名 来源:天极网 2007年10月31日

关键字: Delphi Hash表 使用方法

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

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

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

以下是引用片段:
  RTest = record
  Key:Integer;
  Name:String[20];
  Sex:Boolean;
  Age:Integer;
  end;
  PTest = ^RTest ;
  1:创建Hash表.
  ScHash:=THashedStringlist.Create;
  2:将数据结构加入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表中.

  3:将数据结构从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;

  4:删除Hash表

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

  ScHash.Free;

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章