在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));FYBLinux联盟
    if Index=-1 thenFYBLinux联盟
    beginFYBLinux联盟
      ScHash.AddObject(IntToStr(p_Test.Key),TObject(Integer(p_Test)));FYBLinux联盟
    end;

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

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

var

　Index:Integer;

　t_Object: TObject;

　Index:=ScHash.IndexOf(IntToStr(p_Test.Key));FYBLinux联盟
    if Index<>-1 thenFYBLinux联盟
    beginFYBLinux联盟
      t_Object:=ScHash.Objects[Index];FYBLinux联盟
      ScHash.Delete(Index);FYBLinux联盟
    end;

４：删除Hash表

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

  ScHash.Free;