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

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses
      IniFiles;  //TStringHash 来自 IniFiles 单元
    var
      Hash: TStringHash;
    
    { TStringHash 的功能非常简单, 如果需要更多功能应该使用: THashedStringList
      TStringHash 与 THashedStringList、TStringList 最大的不同是:
      TStringHash 的 Key 必须是 String; Value 必须是 Integer.
      如果这不适合你的要求, 建一个 TMyHash 也不是难事 }
    
    
    //建立哈希表
    procedure TForm1.FormCreate(Sender: TObject);
    var
      i: Integer;
    begin
      Hash := TStringHash.Create(26);  //26 是表的初始大小, 可以省略使用默认值256
      for i := 65 to 90 do
      begin
        Hash.Add(Chr(i),i);  //如果表不够大,会自动增加的
      end;
    end;
    
    //读取
    procedure TForm1.Button1Click(Sender: TObject);
    var
      num: Integer;
    begin
      num := Hash.ValueOf('Z');
      ShowMessage(IntToStr(num));  //90
    end;
    
    //修改、删除、清空
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      Hash.Modify('Z',100);  //修改
      Hash.Remove('A');      //删除
      Hash.Clear;            //清空
    
      {没了, 就这些功能}
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
      Hash.Free;
    end;
    
    end.

  • 相关阅读:
    [开源]WinForm 控件使用总结
    类型转换一种处理方式
    [算法]斐波那契数列
    [算法]1 − 2 + 3 − 4 + …
    [算法]冒泡排序
    [开源]基于Log4Net简单实现KafkaAppender
    基于Log4Net本地日志服务简单实现
    项目打jar包,怎么把第三放jar包一起打入
    将博客搬至CSDN
    将字段转换为阿拉伯数字
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/2940936.html
Copyright © 2011-2022 走看看