Delphi THashedStringList用法

Delphi中的THashedStringList对象

Delphi在在IniFiles 单元中定义了THashedStringList类：

THashedStringList = class(TStringList)

private     FValueHash: TStringHash;

FNameHash: TStringHash;

FValueHashValid: Boolean;

FNameHashValid: Boolean;

procedure UpdateValueHash;

procedure UpdateNameHash;

protected  procedure Changed; override;

public  destructor Destroy; override;

function IndexOf(const S: string): Integer; override;

function IndexOfName(const Name: string): Integer; override;

end;

从中可以看出T HashedStringList类继承自TStringList，所以保留了TStringList的方法，但TStringList类是使用数组以线性方式保存所有子项的，所以无论使用其IndexOf方法还是IndexOfName方法都是使用线性查找法，这种查寻方法当数据量比较大时其查询是非常低。

THashedStringList类中添加了两个TStringHash私有成员，分别用来存放对其子项键名哈希表和键值哈希表。当调用其 IndexOf方法或是IndexOfName方法时，此类会首先检查是否已经为键值或是键名创建哈希表，如果没有，则创建之，否则直接使用哈希算法时行查找。

function THashedStringList.IndexOf(const S: string): Integer;

begin UpdateValueHash; //创建键值哈希表

if not CaseSensitive then

Result := FValueHash.ValueOf(AnsiUpperCase(S))

else

Result := FValueHash.ValueOf(S);

end;

function THashedStringList.IndexOfName(const Name: string): Integer;

begin UpdateNameHash; //创建健名哈希表

if not CaseSensitive then

Result := FNameHash.ValueOf(AnsiUpperCase(Name)) else

Result := FNameHash.ValueOf(Name); end;

当数据量不是很大时，如几百、几千时哈希算法的优势并不是很明显，但是随着数据量在增大，其性能的提升是相当可观的。所以如果需要使用TStringList存储大数据量时，请使用THashedStringList代替。

举例说明：

1. unit Unit1;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5. Dialogs, StdCtrls;
6. type
7. TForm1 = class(TForm)
8. Button1: TButton;
9. Button2: TButton;
10. procedure Button1Click(Sender: TObject);
11. procedure FormCreate(Sender: TObject);
12. procedure FormDestroy(Sender: TObject);
13. procedure Button2Click(Sender: TObject);
14. private
15. { Private declarations }
16. public
17. { Public declarations }
18. end;
19. var
20. Form1: TForm1;
21. implementation
22. {$R *.dfm}
23. uses
24. IniFiles;  //THashedStringList 来自 IniFiles 单元
25. var
26. Hash: THashedStringList;
27. { THashedStringList 继承自 TStringList, 只是覆盖了 IndexOf、IndexOfName 两个方法以增加效率;
28. 如果注重效率而不需要太多功能, 可以使用 TStringHash, 它是直接从 TObject 继承的数组链表 }
29. //建立哈希表
30. procedure TForm1.FormCreate(Sender: TObject);
31. var
32. i: Integer;
33. begin
34. Hash := THashedStringList.Create;
35. for i := 97 to 122 do
36. begin
37. Hash.Add(Chr(i) + '=' + IntToStr(i));
38. end;
39. ShowMessage(Hash.Text);
40. {
41. 构建结果:
42. a=97
43. b=98
44. c=99
45. d=100
46. e=101
47. f=102
48. g=103
49. h=104
50. i=105
51. j=106
52. k=107
53. l=108
54. m=109
55. n=110
56. o=111
57. p=112
58. q=113
59. r=114
60. s=115
61. t=116
62. u=117
63. v=118
64. w=119
65. x=120
66. y=121
67. z=122
68. }
69. end;
70. //检索哈希表
71. procedure TForm1.Button1Click(Sender: TObject);
72. var
73. i: Integer;
74. begin
75. i := Hash.IndexOf('z=122');
76. ShowMessage(IntToStr(i));  //25
77. i := Hash.IndexOfName('z');
78. ShowMessage(IntToStr(i));  //25
79. end;
80. //基本操作
81. procedure TForm1.Button2Click(Sender: TObject);
82. begin
83. Hash.Values['a'] := '65';       //赋值
84. Hash.ValueFromIndex[0] := '65'; //用索引赋值
85. ShowMessage(Hash.Values['z']);       //122, 取值
86. ShowMessage(Hash.ValueFromIndex[25]);//122, 用索引取值
87. {其他操作参加 TStringList}
88. end;
89. procedure TForm1.FormDestroy(Sender: TObject);
90. begin
91. Hash.Free;
92. end;
93. end.