IniFiles 单元内容学习（一）

  IniFiles单元为borland delphi中读取后缀名为ini文件的单元集合，为方便开发人员在读取ini文件内容时提供一些基本操作函数，在该单元中一共有三个ini文件操作类（TCustomIniFile 、TIniFile、TMemIniFile），一个异常类EIniFileException，两个哈希类（TStringHash、THashedStringList），还有一个基础record(THashItem)。

  THashItem为数据存储单元，看下它的定义

 

  THashItem = record
    Next: PHashItem;      ---记录下一个hashItem的指针
    Key: string;                ---hashItem标识
    Value: Integer;          ---hashItem值
  end;

 

  TStringHash是数据单元ThashItem的集合类，其中定义了一个名为Buckets的PHashItem单元数组，还有一些对该数据的操作方法：

 

TStringHash = class
  private
    Buckets: array of PHashItem;                                      --定义对hashitem单元的数组集合
  protected
    function Find(const Key: string): PPHashItem;              --根据key值查找返回对应的ThashItem
    function HashOf(const Key: string): Cardinal; virtual;   --内部操作函数
  public
    constructor Create(Size: Cardinal = 256);
    destructor Destroy; override;
    procedure Add(const Key: string; Value: Integer);        --增加关键值和数值
    procedure Clear;
    procedure Remove(const Key: string);
    function Modify(const Key: string; Value: Integer): Boolean;  --修改关键值对应的数值
    function ValueOf(const Key: string): Integer;
  end;

 

 THashedStringList为一个tstringlist,其中用到tstringHash来增加寻找的速度。其中Tstringhash跟ThashedStringList和TstringList最大的不同在于TStringList中key为string值，而value为integer值。以下为自我写的一个对该hashedstringlist和stringhash操作的例子.

 

unit PrjHashOper;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    Stringhash: TStringHash;
    HashStrLst: THashedStringList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Stringhash := TStringHash.Create;
  HashStrLst := THashedStringList.Create;

  for i := 97 to 123 do
  begin
    Stringhash.Add(chr(i), i);
    HashStrLst.Add(Char(i) + '=' + IntToStr(i));      
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(HashStrLst.Values['z']);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Stringhash.ValueOf('z')));
end;

 

end.