改造Delphi的TStringHash成比较通用的哈希表
有时候我们需要可以高速检索的列表，自然会想到哈希表，平时我们可能想到用IniFiles单元里的THashedStringList，但 THashedStringList每次新增一个Item后都需要刷新一遍，数据多了可能会有点慢，感觉不太好，而TStringHash则只能存 Integer型的(虽然我们可以把别的东西强制转成整型存进去，但感觉不太好)。TStringHash已经实现了哈希表的全部功能，我们只需要改一下 就可以为自己所用了。
我主要做了下面一些修改：
1.为能更通用一些，把存储的值改为Pointer类型;
2.新增了FindKey方法用于判断表中是否存在某个Key了;
3.新增了StartEnum和EnumValue方法，用于遍历整个哈希表，比如：
var aItem:TIntfItem;
begin
FList.StartEnum;
while FList.EnumValue(Pointer(aItem)) do
begin
if aItem.Lifecycle=ilSys then
aItem.Free;
end;
end;
4.新增了OnDeletion事件，功能和TtreeView的OnDeletion一样，删除Item时触发，可以在这里释放些东西，比如：
procedure TIntfFactory.OnDeletion(var Value: Pointer);
begin
if assigned(Value) then
begin
TIntfItem(Value).Free;
Value:=nil;
end;
end;
下面是修改后的代码：
unit HashList;
interface
Type
PPHashItem = ^PHashItem;
PHashItem = ^THashItem;
THashItem = record
Next: PHashItem;
Key: string;
Value: Pointer;
end;
TDeletionEvent=Procedure(var Value:Pointer) of Object;
THashList = class
private
FEnumIndex:Cardinal;
FCurrItem:PHashItem;
Buckets: array of PHashItem;
FOnDeletion: TDeletionEvent;
procedure DoDeletion(var Value:Pointer);
protected
function Find(const Key: string): PPHashItem;
function HashOf(const Key: string): Cardinal; virtual;
public
constructor Create(Size: Cardinal = 256);
destructor Destroy; override;
procedure Add(const Key: string; Value: Pointer);
procedure Clear;
相关文档：
技术交流,DH讲解. 今天来实现一个简单的五子棋,直接用GDI来画的一个游戏.
首先我们来想下怎么存放数据,哪些地方是白棋,哪些地方是黑棋,哪些地方没有下棋?
对,我们用一个二维数组,如果数组中某一个位置的值为0代表没有下棋,为1代表是白棋,为2代表是黑棋.
好就这么说定了,为了使用方便,我们打算做成一个控� ......
优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化 查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 SQL符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 Windows中的其它应用程� ......
ExtractFileDrive ：返回完整文件名中的驱动器，如"C:"
ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:\test\"
ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:\test"
ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.doc"
ExtractFileExt 返回� ......
根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和过程调用通过该对象 实例访问数据库。
需要明确一些基本概念。对� ......
