Delphi - THashedStringList增量搜索

时间:2015-06-04 14:31:13

标签: delphi delphi-xe2 incremental-search

我有一个THashedStringList,上面有近200k项(字符串和对象)。此列表将大量用于搜索其中的项目。在某些情况下,我需要对其进行增量搜索。我用StartsText例程

为增量搜索写了一个基本的例子
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  System.IniFiles, Vcl.StdCtrls,
  System.StrUtils;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
  ahsStrLst : THashedStringList;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function generate(cantidad: integer): string;
const
  letras_mi = 'abcdefghijklmnopqrstuvwxyz';
 var
  i: Integer;
begin
  Result := '';
  for I := 0 to cantidad-1 do
    Result := Result + letras_mi[Random(Length(letras_mi)) + 1];
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var iPos: Integer;
begin
 Memo2.Clear;
 Memo2.Update;
 for ipos := 0 to ahsStrLst.Count-1 do
  if StartsText(Edit1.Text,ahsStrLst[iPos]) then
   Memo2.Lines.Add(ahsStrLst[iPos])
end;

procedure TForm1.FormCreate(Sender: TObject);
var ipos:Integer;
begin
  ahsStrLst := THashedStringList.Create;
  for iPos := 0 to 50000 do
   ahsStrLst.AddObject(generate(4),TObject(ipos));//here there will be diffent type of objects
  for iPos := 0 to 50000 do
   ahsStrLst.AddObject(generate(6),TObject(ipos));
  for iPos := 0 to 50000 do
   ahsStrLst.AddObject(generate(8),TObject(ipos));
  for iPos := 0 to 50000 do
   ahsStrLst.AddObject(generate(10),TObject(ipos));

   Memo1.Lines.AddStrings(ahsStrLst);
end;

end.

有没有办法加快这种增量搜索?

1 个答案:

答案 0 :(得分:2)

首先,您应该停止使用THashedStringList。一旦你获得了具有泛型的Delphi,你应该使用TDictionary<K,V>代替。它提供了更清晰的界面,并且表现更好。但是,在这种情况下,对部分匹配的需求使得基于散列的查找无助。您需要不同的数据结构。

对于有效的部分匹配查找,您可以考虑维护有序列表。然后,您可以使用二分法执行查找。因为您正在进行部分匹配,所以您必须自己制作二分法,因为RTL提供的所有设施都会搜索单个项目。

假设您正在搜索'abc'。首先找到最大值< 'abc'。您的部分匹配从随后的项开始。然后找到以'abc'开头的最大值。您的部分匹配以该项结束。如果不存在此类项目,则没有匹配项。