参考资料:https://www.cnblogs.com/win32pro/p/7118373.html
Windows 平台
//需要引用 IniFiles
uses
system.IniFiles;
//保存 INI 配置文件
procedure TForm1.btnSaveClick(Sender: TObject);
var
myIniFile: TIniFile;
filepath: string;
begin
filepath := ExtractFilePath(Application.Exename) + 'DBConfig.ini'; //取得 ini 文件的路径
myIniFile := TIniFile.Create(filepath);
try
myIniFile.WriteString('DBConf', 'Server', edtServer.Text); //服务器地址
myIniFile.WriteString('DBConf', 'Port', edtPort.Text); //数据库端口
myIniFile.WriteString('DBConf', 'Database', edtDatabase.Text); //数据库名
myIniFile.WriteString('DBConf', 'User', edtUser.Text); //登录用户名
myIniFile.WriteString('DBConf', 'Password', edtPwd.Text); //登录密码
ShowMessage('保存成功');
finally
myIniFile.Free;
end;
end;
//载入 INI 配置文件
procedure TForm1.btnLoadClick(Sender: TObject);
var
myIniFile: TIniFile;
filepath: string;
begin
filepath := ExtractFilePath(Application.Exename) + 'DBConfig.ini'; //取得 ini 文件的路径
myIniFile := TIniFile.Create(filepath);
try
ListBox1.Clear;
ListBox1.Items.Add('服务器:' + myIniFile.ReadString('DBConf', 'Server', '')); //服务器地
址
ListBox1.Items.Add('端口:' + myIniFile.ReadString('DBConf', 'Port', '')); //数据库端
口
ListBox1.Items.Add('数据库:' + myIniFile.ReadString('DBConf', 'Database', '')); //数据库名