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;
THashedStringList哈嘻读写及ini文件项名,小节名,值 遍历的方法
最新推荐文章于 2021-04-29 16:42:49 发布