谁说Delphi没有哈希
谁说Delphi没有哈希？－－Delphi中，TStringList和THashedStringList的性能对比
曾经看到很多人在嚷嚷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: THashedStrin
相关文档：
在主界面的implementation {$R *.dfm} 下放入以下代码：
procedure PatchInt3;
var
NOP: Byte;
NTDLL: THandle;
BytesWritten: DWORD;
Address: Pointer;
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Exit;
NTDLL := GetModuleHandle('NTDLL.DLL');
if NT ......
由于项目需要，开始学习DELPHI，并自己编写代码来测试用VC写的DLL，觉得自己又多掌握了一些，不对的地方希望指正，我会好好学习
1、响应键盘事件：
因为KeyPreview默认是 False;我们这里需要响应键盘事件的话，需要将其修改为True；
所以KeyPreview:=True; 这对一些快捷键会有用。
在FormCreate这个函数里修改KeyPrevie ......
什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据
的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，
程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不
但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。如果你对
流的操作非常熟练，在� ......
名称 类型 说明
abort 函数 引起放弃的意外处理
abs 函数 绝对值函数
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列
align 属性 使控件位于窗口某部分
alignment 属性 � ......
unit Servicescontrol;
interface
uses Windows,Messages,SysUtils,Winsvc,Dialogs;
function StartServices(Const SvrName:String):Boolean;
function StopServices(Const SvrName:String):Boolean;
function QueryServiceStatu(Const SvrName: ......
