THashedStringList哈嘻读写及ini文件项名,小节名,值 遍历的方法

uses
inifiles;
 //哈嘻的引用.
var
Hashed:THashedStringList;
ini:tinifile;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     Hashed.Values['a']:='111';    //写值
      Hashed.Values['b']:='222';
      memo1.Lines.Clear ;
      memo1.Lines:=hashed;       //显示出来
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     showmessage(hashed.Values['a'])  //读这个值
end;

procedure TForm1.Button3Click(Sender: TObject);


begin

 ini.ReadSections(hashed);   //ini文件将所有的 项名 读入到哈嘻,也可以用此方法便历ini文件项名
ini.ReadSection('服务器配置',hashed)  ;    //读入某项的全部小节名
ini.ReadSectionValues('服务器配置',hashed)  ;    //读入某项的全部小节名和值  a=111
memo1.Lines.Clear ;
memo1.Lines.AddStrings(hashed) ;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
hashed.Clear ;
hashed.Free ;
ini.Free ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Hashed:=thashedstringlist.Create ; //创建哈嘻
ini:=tinifile.Create('C:\Users\yjh\Desktop\serverpz.ini') ;  //ini文件创建关联文件
end;