难道发现Delphi bug了？关于THashedStringlist的问题

2010-04-05 12:06:16 313 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

谁说Delphi没有哈希？－－Delphi中，TStringList和THashedStringList的性能对比曾经看到很多人在嚷嚷Delphi没有哈希表，这些人的动手意识姑且不论，却还有很多人以此来证明Delphi比别的语言垃圾，实在是...好，牢骚打住，转接正题。TStringList是我们常用的字符串列表类型，用法就不在这里赘述，但是，在数据其项数增多时，其搜索（主要是name/key搜索和indexof搜索）性能会急剧下降，原因是TStringList的内部存储使用了链表形式，而搜索操作使用阅读详情



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, IniFiles;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    FCacheConfigList: THashedStringlist;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var

  t: Cardinal;

  i: Integer;

begin

  t := GetTickCount;

  for i := 0 to 10000 do

    FCacheConfigList.Add(IntToStr(i + 1));

  FCacheConfigList.Sort;{问题在这里，第一次排序很快，如果再点击一次Button1就排序很耗时，等待大约5分钟以后排序完成，再点击button1就没问题了}

  ShowMessage(IntToStr(GetTickCount - t));

  ShowMessage(IntToStr(FCacheConfigList.Count));

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

  FCacheConfigList := THashedStringlist.Create;

end;



end.