zoukankan      html  css  js  c++  java
  • 哈希表1

    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.

  • 相关阅读:
    day77
    75
    ElasticSearch集群的配置
    虚拟机VMware Workstation搭建Linux集群——VMware Tools的安装与配置
    ElasticSearch通过Rest Http API完成基本操作
    Maven笔记
    Oracle通过PL/SQL Developer导出数据为CSV格式,VARCHAR2类型的字段如果存入的是数值(例如3307830000004059)太长,最后一位会被置为0
    Redis的安装与配置
    2017 3月份以来入职感受
    Java设计模式(05-- 代理模式模式 )
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2940937.html
Copyright © 2011-2022 走看看