ini文件操作

最新推荐文章于 2021-01-01 01:38:18 发布

shenlanzz

最新推荐文章于 2021-01-01 01:38:18 发布

阅读量436

点赞数

分类专栏： Delphi 文章标签： ini string ui

本文链接：https://blog.csdn.net/shenlanzz/article/details/2435113

版权

Delphi 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

uses
inifiles

//写入

var
filename: String;
FileIni: TIniFile;
begin
Filename := ExtractFilePath(paramstr(0))+'connect.Ini';
FileIni := TIniFile.Create(Filename);
FileIni.writestring('connect','ds', combobox1.Text);
FileIni.writestring('connect','ic', edit2.Text);
FileIni.writestring('connect','ui', edit3.Text);
FileIni.writestring('connect','pw', edit4.Text);
fileini.Destroy;
close;
self.Hide;
DM_FM:=TDM_FM.Create(self);

end;

//读取

var
Fileds,fileic,fileui,filepw,filename: String;
FileIni: TIniFile;
begin
Filename := ExtractFilePath(paramstr(0))+'connect.Ini';
FileIni := TIniFile.Create(Filename);
Fileds := FileIni.ReadString('connect','ds', '');
Fileic := FileIni.ReadString('connect','ic', '');
Fileui := FileIni.ReadString('connect','ui', '');
Filepw := FileIni.ReadString('connect','pw', '');
begin
combobox1.Text:=fileds;
edit2.Text:=fileic;
edit3.Text:=fileui;
edit4.Text:=filepw;
end;
end;