Delphi 中的哈希表(1): THashedStringList

转载 2016年05月30日 14:33:55
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  IniFiles;  //THashedStringList 来自 IniFiles 单元
var
  Hash: THashedStringList;

{ THashedStringList 继承自 TStringList, 只是覆盖了 IndexOf、IndexOfName 两个方法以增加效率;
  如果注重效率而不需要太多功能, 可以使用 TStringHash, 它是直接从 TObject 继承的数组链表 }


//建立哈希表
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Hash := THashedStringList.Create;

  for i := 97 to 122 do
  begin
    Hash.Add(Chr(i) + '=' + IntToStr(i));
  end;

  ShowMessage(Hash.Text);
{
构建结果:
  a=97
  b=98
  c=99
  d=100
  e=101
  f=102
  g=103
  h=104
  i=105
  j=106
  k=107
  l=108
  m=109
  n=110
  o=111
  p=112
  q=113
  r=114
  s=115
  t=116
  u=117
  v=118
  w=119
  x=120
  y=121
  z=122
}
end;

//检索哈希表
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := Hash.IndexOf('z=122');
  ShowMessage(IntToStr(i));  //25

  i := Hash.IndexOfName('z');
  ShowMessage(IntToStr(i));  //25
end;

//基本操作
procedure TForm1.Button2Click(Sender: TObject);
begin
  Hash.Values['a'] := '65';       //赋值
  Hash.ValueFromIndex[0] := '65'; //用索引赋值

  ShowMessage(Hash.Values['z']);       //122, 取值
  ShowMessage(Hash.ValueFromIndex[25]);//122, 用索引取值

  {其他操作参加 TStringList}
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Hash.Free;
end;

end.

Delphi:两个高效的哈希函数

function BKDRHash(buf: Pointer; count: Integer) : Cardinal; assembler; asm PUSH EBX; ...
  • linzhengqun
  • linzhengqun
  • 2010年11月30日 21:33
  • 2467

Delphi实现Hash表

Hash表,其实就是一个Key对应一个Object在Delphi里最简单实现Hash的就是TStrings通过它的AddObject,IndexOf,Objects等方法可以做一个很简单的Hash表。...
  • formiss
  • formiss
  • 2007年05月10日 17:12
  • 2856

Delphi中的哈希?

曾经看到很多人在嚷嚷Delphi没有哈希表,这些人的动手意识姑且不论,却还有很多人以此来证明Delphi比别的语言垃圾,实在是...好,牢骚打住,转接正题。TStringList是我们常用的字符串列表...
  • songfuqiang
  • songfuqiang
  • 2007年09月28日 16:52
  • 1962

使用THashedStringList管理结构体数据()

unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Sy...
  • oYaoWang123
  • oYaoWang123
  • 2015年09月02日 23:54
  • 508

Delphi中的THashedStringList对象

有许多程序员都喜欢使用TStringList类作为键值存储,这是不错的用法。但是 TStringList本身只是对数据线性的存储,当数据量大时,对其检索效率极为低下。Delphi在在IniFiles ...
  • chinajobs
  • chinajobs
  • 2016年05月30日 14:27
  • 481

Delphi容器类之---Tlist,TStringlist,THashedStringlist的效率比较

本人在做一个测试,服务器是IOCP的,我假定最大连接数是50000个。 如果每个链接之间的数据需要服务器中转的话,那么我需要一个数据容器储存用户的关键数据和链接。 以上是测试背景。 ...
  • my98800
  • my98800
  • 2017年04月12日 10:20
  • 755

Delphi 中哈希表TStringHash和THashedStringList性能速度

Delphi的IniFiles单元中有两个哈希表类TStringHash和THashedStringList 【TStringHash】 优点:速度快,尤其是添加时(调用.Add)速度比T...
  • webouse
  • webouse
  • 2017年02月17日 17:08
  • 1217

delphi中Tlist的使用。

我在上面的BLOG中写到了使用指针的方法。在DELPHI中指针最常见的就是和类TLIST结合起来使用。下面是一个很简单的例子,希望对这个例子的分析能让大家对使用TLIST类有一个简单的认识。 代...
  • u010673851
  • u010673851
  • 2016年02月25日 21:17
  • 3349

Delphi6-xe5 中的MD5实现方法

在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashM...
  • gzxiaorou
  • gzxiaorou
  • 2015年03月20日 15:58
  • 3896

hash表delphi实现源代码(免积分下载)

  • 2007年08月06日 09:47
  • 929B
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 中的哈希表(1): THashedStringList
举报原因:
原因补充:

(最多只允许输入30个字)