改造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;
相关文档：
1. 字符串连接直接用+，与Java和Python中的相同
2. 执行外部命令使用winexec，ShellExecute
eg. ShellExecute(0, 'open', 'jre/bin/java', '-lang zh-CN', 'E:\myfolder', SW_SHOW);
3. 判断文件、文件夹是否存在
FileExists('C:\Users\bill\somefile.txt')
......
技术交流,DH讲解. 今天来实现一个简单的五子棋,直接用GDI来画的一个游戏.
首先我们来想下怎么存放数据,哪些地方是白棋,哪些地方是黑棋,哪些地方没有下棋?
对,我们用一个二维数组,如果数组中某一个位置的值为0代表没有下棋,为1代表是白棋,为2代表是黑棋.
好就这么说定了,为了使用方便,我们打算做成一个控� ......
根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和过程调用通过该对象 实例访问数据库。
需要明确一些基本概念。对� ......
Delphi操作XML是很方便的，主要有两种方法；
1.用TClientDataSet操作XML；TClientDataSet是个好东西，用它操作XML是很简单的事，不过缺点是只能操作固定格式的 XML，它适合操作表结构的数据，如果你需要把数据表导出成XML那用TClientDataSet是个好主意，比如下面是一个数据集导出成XML的� ......
