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代替。
举例说明：
- 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在在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代替。
举例说明：
- 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.