Delphi中的哈希?

转载 2007年09月28日 16:52:00

曾经看到很多人在嚷嚷Delphi没有哈希表,这些人的动手意识姑且不论,却还有很多人以此来证明Delphi比别的语言垃圾,实在是...

好,牢骚打住,转接正题。

TStringList是我们常用的字符串列表类型,用法就不在这里赘述,但是,在数据其项数增多时,其搜索(主要是name/key搜索和indexof搜索)性能会急剧下降,原因是TStringList的内部存储使用了链表形式,而搜索操作使用了循环遍历方式。

值得高兴的是,在iniFiles单元,Delphi为我们提供了THashedStringList类型,即,经过哈希处理的TStringList,它继承自TStringList,只是对搜索方法进行了优化,因此,我们完全可以放心的在大量字符串搜索的时候使用它来代替TStringList,而需要改变的只是在:=的后面用THashedStringList.create来代替TStringList.create,但其速度却提高了一个数量级。

为了显示两者间性能的差距,我写了几个简单的语句来测试他们各自的特性。

 

unit ufrmMainForm;

interface

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

type
  TForm1 
= class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  
private
    
...{ Private declarations }
  
public
    procedure testTHashStringList;
    procedure testTStringList;
    
...{ Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses DateUtils;

...{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
    testTStringList;
    mmo1.Lines.Add(
'--------------------');
    testTHashStringList;
end;

procedure TForm1.testTHashStringList;
var
    hsl: THashedStringList;
  I: Integer;
  datePointer: TDateTime;
  hslTime, hslTimeC, hslTimeI: Int64;
  tempInt: Integer;
  tempstr: 
string ;
begin

    hslTime := 0;
    hslTimeC :
= 0;
    datePointer :
= Now();
    hsl :
= THashedStringList.Create();

    
for I := 1 to 200000 do
    begin
        hsl.Add(
'string_'+IntToStr(i));
    end;
    hslTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'200000 项 THashedStringList 创建耗时:'+IntToStr(hslTime)+'毫秒');

    datePointer :
= Now();
    
for I := 0 to 200 do
    begin
        tempInt :
= hsl.IndexOf('string_'+IntToStr(i*1000));
    end;
    hslTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'200 项字符串搜索 THashedStringList 耗时:'+IntToStr(hslTime)+'毫秒');

    datePointer :
= Now;
    
for I := 1 to 200000 do
    begin
        tempstr :
= hsl.Strings[i -1];
    end;
    hslTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'200000 项索引搜索 THashedStringList 耗时:'+IntToStr(hslTime)+'毫秒');
    hsl.Clear;

    datePointer :
= Now;
    
for I := 1 to 100000 do
    begin
        hsl.Insert(i
-1'string_'+IntToStr(i));
    end;
    hslTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'100000 项 THashedStringList 随位置插入耗时:'+IntToStr(hslTime)+'毫秒');

    datePointer :
= Now;
    
for I := 1 to 100000 do
    begin
        hsl.Insert(
0'string_'+IntToStr(i));
    end;
    hslTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'100000 项 THashedStringList 0位置插入耗时:'+IntToStr(hslTime)+'毫秒');

end;

procedure TForm1.testTStringList;
var
    sl: TStringList;
  I: Integer;
  datePointer: TDateTime;
  slTime, slTimeC, slTimeI: Int64;
  tempInt: Integer;
  tempstr: 
string ;
begin

    slTime := 0;
    slTimeC :
= 0;
    datePointer :
= Now();
    sl :
= TStringList.Create;
    
for I := 1 to 200000 do
    begin
        sl.Add(
'string_'+IntToStr(i));
    end;
    slTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'200000 项 TStringList 创建耗时:'+IntToStr(slTime)+'毫秒');

    datePointer :
= Now;
    
for I := 0 to 200 do
    begin
        tempInt :
= sl.IndexOf('string_'+IntToStr(i*1000));
    end;
    slTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'200 项字符串搜索 TStringList 耗时:'+IntToStr(slTime)+'毫秒');

    datePointer :
= Now;
    
for I := 1 to 200000 do
    begin
        tempstr :
= sl.Strings[i -1];
    end;
    slTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'200000 项索引搜索 TStringList 耗时:'+IntToStr(slTime)+'毫秒');
    
    datePointer :
= Now;
    
for I := 1 to 100000 do
    begin
        sl.Insert(i
-1,'string_'+IntToStr(i));
    end;

    slTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'100000 项 TStringList 随位置插入耗时:'+IntToStr(slTime)+'毫秒');

    datePointer :
= Now;
    
for I := 1 to 100000 do
    begin
        sl.Insert(
0,'string_'+IntToStr(i));
    end;

    slTime :
= MilliSecondsBetween(Now, datePointer);
    mmo1.Lines.Add(
'100000 项 TStringList 0位置插入耗时:'+IntToStr(slTime)+'毫秒');

end;

end.

编译运行程序,其运行结果:

200000 项 TStringList 创建耗时:109毫秒
200 项字符串搜索 TStringList 耗时:11514毫秒
200000 项索引搜索 TStringList 耗时:31毫秒
100000 项 TStringList 随位置插入耗时:85828毫秒
100000 项 TStringList 0位置插入耗时:148734毫秒
--------------------
200000 项 THashedStringList 创建耗时:108毫秒
200 项字符串搜索 THashedStringList 耗时:188毫秒
200000 项索引搜索 THashedStringList 耗时:15毫秒
100000 项 THashedStringList 随位置插入耗时:63毫秒
100000 项 THashedStringList 0位置插入耗时:55640毫秒

(测试环境:Windows2003  SP1  +Delphi 2006 Update 2 HotFix1-9 +1G内存 +P-D2.8G双核)

结果很明显,两者在创建的时候,性能并没有差距(之前听人说THashedStringList在增加和插入操作时会比 TStringList慢,在此并没有显示出来,不知道是不是因为THashedStringList并不是人们说的那样,在每次插入项时都做哈希操作,还请各位不吝赐教),而200 项字符串搜索(从1到2000000项匀距搜索200项)中,两者的性能竟差如此悬殊。其后的各项测试也在预料之中。

由此可见,THashedStringList能更好的代替我们常用的TStringList来工作,我们为什么要拒绝呢?

另外,iniFiles单元还提供了TStringHash,但只是对key进行了哈希操作,一般不常用。  

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

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

Delphi 中的哈希表(1): THashedStringList

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F...
  • chinajobs
  • chinajobs
  • 2016年05月30日 14:33
  • 1034

Delphi实现Hash表

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

哈希算法(Hash Algorithm)初探

不约而同的,几乎所有的流行的hash map都采用了DJB hash function,俗称“Times33”算法。Perl、Berkeley DB 、Apache、MFC、STL 等等。times3...
  • wwwsq
  • wwwsq
  • 2007年03月12日 11:39
  • 35688

Delphi:两个高效的哈希函数

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

Delphi中的SHA256算法

在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法,代码如下 uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 :...
  • webouse
  • webouse
  • 2017年04月24日 09:06
  • 1309

delphi xe10.2自带的sha1sha2

uses单元加入system.hash。 使用sha1直接调用 edit3.Text := system.hash.THashSHA1.GetHashString(edit1.Text); 使用 ...
  • leavesguth
  • leavesguth
  • 2017年07月03日 15:05
  • 861

SHA256加密 pas单文件

  • 2016年01月05日 20:02
  • 9KB
  • 下载

DELPHI SHA1加密函数

在命名空间IdHashSHA,有个函数TidHashSHa1类,用作SHA1加密; 该类的方法Methods有 Constructor:creat Methods:HashtoHex(const aH...
  • Syndicator
  • Syndicator
  • 2014年02月20日 17:23
  • 3445

DELPHI实现标准SHA1WithRSA、MD5WithRSA算法

工作中遇到这样一个问题,双方通过HTTPS通信,对方提供了密钥及签名验签接口,是JAVA写的,由于某些限制,我只能用客户端与之通信,所以先用Swing写了一个,但实际运行时发现占用资源较大,便计划用D...
  • zhuojiuyihu
  • zhuojiuyihu
  • 2010年10月09日 17:11
  • 7366
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi中的哈希?
举报原因:
原因补充:

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