Delphi7：THashedStringList 详细用法指南

THashedStringList 详细用法指南

THashedStringList 是 Delphi 中一个高效的字符串列表类，它通过哈希表实现快速查找功能，特别适合需要频繁查找字符串的场景。下面我将详细介绍其用法、优势和应用场景。

基本介绍

THashedStringList 继承自 TStringList，但添加了基于哈希表的快速查找机制：

type
  THashedStringList = class(TStringList)
  private
    FValueHash: TStringHash; // 哈希表实现
    FValueHashValid: Boolean;
    procedure UpdateValueHash;
  public
    function IndexOf(const S: string): Integer; override;
    function IndexOfName(const Name: string): Integer; override;
    procedure Changed; override;
    destructor Destroy; override;
  end;

核心优势

基本用法

1. 创建和初始化

uses
  IniFiles; // THashedStringList 在 IniFiles 单元中

var
  HashedList: THashedStringList;
begin
  // 创建实例
  HashedList := THashedStringList.Create;
  try
    // 添加数据
    HashedList.Add('Name=John');
    HashedList.Add('Age=30');
    HashedList.Add('City=New York');
    
    // 查找示例
    if HashedList.IndexOf('Age=30') >= 0 then
      ShowMessage('Found Age entry');
      
    // 按名称查找
    ShowMessage('City is ' + HashedList.Values['City']);
  finally
    HashedList.Free;
  end;
end;

2. 键值对操作

// 添加键值对
HashedList.Values['Email'] := 'john@example.com';

// 获取值
ShowMessage(HashedList.Values['Email']);

// 检查键是否存在
if HashedList.IndexOfName('Email') >= 0 then
  ShowMessage('Email exists');

3. 批量操作

// 批量添加
HashedList.AddStrings(AnotherStringList);

// 从文件加载
HashedList.LoadFromFile('data.txt');

// 保存到文件
HashedList.SaveToFile('backup.txt');

高级用法

1. 自定义分隔符

// 默认分隔符是 '='，可以修改为其他字符
HashedList.NameValueSeparator := ':';
HashedList.Add('Phone:123-456-7890');

2. 处理重复键

// 设置重复键处理方式
HashedList.Duplicates := dupIgnore; // 忽略重复项
// dupError: 引发异常
// dupAccept: 允许重复

HashedList.Values['Name'] := 'Alice';
HashedList.Values['Name'] := 'Bob'; // 会被忽略

3. 大小写敏感设置

// 默认不区分大小写
HashedList.CaseSensitive := True; // 开启大小写敏感

HashedList.Add('KEY=Value');
ShowMessage(HashedList.Values['key']); // 返回空字符串

性能优化技巧

1. 批量添加后重建哈希表

// 大量添加时禁用哈希更新
HashedList.BeginUpdate;
try
  for I := 1 to 10000 do
    HashedList.Add('Item' + IntToStr(I) + '=Value' + IntToStr(I));
finally
  HashedList.EndUpdate; // 自动重建哈希表
end;

2. 自定义哈希函数（高级）

type
  TCustomHashedStringList = class(THashedStringList)
  protected
    function HashOf(const Key: string): Integer; override;
  end;

function TCustomHashedStringList.HashOf(const Key: string): Integer;
begin
  // 实现自定义哈希算法
  Result := SuperFastHash(PChar(Key), Length(Key));
end;

3. 内存管理

// 预分配容量
HashedList.Capacity := 10000; // 预分配空间

// 压缩内存
HashedList.Capacity := HashedList.Count;

实际应用场景

1. 配置文件解析

function ParseConfigFile(const FileName: string): THashedStringList;
begin
  Result := THashedStringList.Create;
  try
    Result.LoadFromFile(FileName);
    Result.NameValueSeparator := '=';
    Result.Duplicates := dupError; // 不允许重复键
  except
    Result.Free;
    raise;
  end;
end;

// 使用示例
var
  Config: THashedStringList;
begin
  Config := ParseConfigFile('settings.cfg');
  try
    ServerPort := StrToIntDef(Config.Values['Port'], 8080);
    LogLevel := Config.Values['LogLevel'];
  finally
    Config.Free;
  end;
end;

2. 快速数据查找

function FindCustomerEmail(CustomerID: Integer): string;
var
  CustomerList: THashedStringList;
  Index: Integer;
begin
  CustomerList := THashedStringList.Create;
  try
    // 假设格式: "ID:Name:Email"
    CustomerList.LoadFromFile('customers.csv');
    
    // 使用ID作为键
    Index := CustomerList.IndexOfName(IntToStr(CustomerID));
    if Index >= 0 then
      Result := CustomerList.ValueFromIndex[Index]
    else
      Result := '';
  finally
    CustomerList.Free;
  end;
end;

3. 缓存系统

type
  TDataCache = class
  private
    FCache: THashedStringList;
    FMaxItems: Integer;
  public
    constructor Create(MaxItems: Integer);
    destructor Destroy; override;
    procedure Add(const Key, Value: string);
    function Get(const Key: string): string;
  end;

constructor TDataCache.Create(MaxItems: Integer);
begin
  FCache := THashedStringList.Create;
  FCache.Duplicates := dupError;
  FMaxItems := MaxItems;
end;

procedure TDataCache.Add(const Key, Value: string);
begin
  if FCache.Count >= FMaxItems then
    FCache.Delete(0); // 移除最旧项
  FCache.Values[Key] := Value;
end;

function TDataCache.Get(const Key: string): string;
var
  Index: Integer;
begin
  Index := FCache.IndexOfName(Key);
  if Index >= 0 then
    Result := FCache.ValueFromIndex[Index]
  else
    Result := '';
end;

常见问题解决方案

1. 哈希表失效问题

// 手动重建哈希表
HashedList.UpdateValueHash;

// 或者在修改后调用
HashedList.Changed;

2. 排序限制

// THashedStringList 不支持排序
// 需要排序时使用临时TStringList
var
  TempList: TStringList;
begin
  TempList := TStringList.Create;
  try
    TempList.Assign(HashedList);
    TempList.Sort;
    // 使用排序后的列表...
  finally
    TempList.Free;
  end;
end;

3. 内存泄漏检测

// 使用内存管理器检测
ReportMemoryLeaksOnShutdown := True;

// 或者在销毁时检查
destructor TMyClass.Destroy;
begin
  if Assigned(FHashedList) then
    FHashedList.Free;
  inherited;
end;

性能对比测试

测试环境：100,000 个字符串项

结论：THashedStringList 在查找密集型场景中性能优势显著

最佳实践总结

1. 适用场景：

   • 大型数据集（>1000项）
   • 频繁查找操作
   • 键值对配置数据

2. 避免场景：

   • 需要排序的列表
   • 频繁添加/删除的小型列表
   • 内存受限环境

3. 性能优化：

   // 批量操作时使用
   HashedList.BeginUpdate;
   try
     // 批量添加
   finally
     HashedList.EndUpdate;
   end;
   
   // 预分配空间
   HashedList.Capacity := ExpectedSize;
   

4. 错误处理：

   try
     HashedList.Values['Key'] := 'Value';
   except
     on E: EStringListError do
       HandleDuplicateKeyError;
   end;
   

5. 替代方案：

   // 现代Delphi可使用TDictionary
   var
     Dict: TDictionary<string, string>;
   begin
     Dict := TDictionary<string, string>.Create;
     try
       Dict.Add('Key', 'Value');
       if Dict.ContainsKey('Key') then ...
     finally
       Dict.Free;
     end;
   end;
   

THashedStringList 在 Delphi 7 及更早版本中是处理大型字符串集合的高效工具，但在现代 Delphi 版本中，TDictionary 通常是更好的选择。