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;

上一篇： 利用Delphi全面控制Windows任务栏
下一篇： 用Delphi来编写蠕虫病毒浅析

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有