zoukankan      html  css  js  c++  java
  • Delphi 中的哈希表(1): THashedStringList

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses
      IniFiles;  //THashedStringList 来自 IniFiles 单元
    var
      Hash: THashedStringList;
    
    { THashedStringList 继承自 TStringList, 只是覆盖了 IndexOf、IndexOfName 两个方法以增加效率;
      如果注重效率而不需要太多功能, 可以使用 TStringHash, 它是直接从 TObject 继承的数组链表 }
    
    
    //建立哈希表
    procedure TForm1.FormCreate(Sender: TObject);
    var
      i: Integer;
    begin
      Hash := THashedStringList.Create;
    
      for i := 97 to 122 do
      begin
        Hash.Add(Chr(i) + '=' + IntToStr(i));
      end;
    
      ShowMessage(Hash.Text);
    {
    构建结果:
      a=97
      b=98
      c=99
      d=100
      e=101
      f=102
      g=103
      h=104
      i=105
      j=106
      k=107
      l=108
      m=109
      n=110
      o=111
      p=112
      q=113
      r=114
      s=115
      t=116
      u=117
      v=118
      w=119
      x=120
      y=121
      z=122
    }
    end;
    
    //检索哈希表
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: Integer;
    begin
      i := Hash.IndexOf('z=122');
      ShowMessage(IntToStr(i));  //25
    
      i := Hash.IndexOfName('z');
      ShowMessage(IntToStr(i));  //25
    end;
    
    //基本操作
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      Hash.Values['a'] := '65';       //赋值
      Hash.ValueFromIndex[0] := '65'; //用索引赋值
    
      ShowMessage(Hash.Values['z']);       //122, 取值
      ShowMessage(Hash.ValueFromIndex[25]);//122, 用索引取值
    
      {其他操作参加 TStringList}
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      Hash.Free;
    end;
    
    end.
    
  • 相关阅读:
    PCL利用RANSAC自行拟合分割平面
    HDU 3062 && HDU 1824 && POJ 3678 && BZOJ 1997 2-SAT
    BZOJ 3670 && BZOJ 3620 && BZOJ 3942 KMP
    BZOJ 1500 Splay 全操作
    Manacher
    POJ 2155 2维线段树 || 2维BIT
    BZOJ 1015 并查集+离线倒序
    NOI Linux JAVA
    UVA 10407 差分思想的运用
    BZOJ 1969 树链剖分+Tarjan缩点
  • 原文地址:https://www.cnblogs.com/del/p/1003835.html
Copyright © 2011-2022 走看看