在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
//需要引用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', '')); //数据库名 ListBox1.Items.Add('用户名:' + myIniFile.ReadString('DBConf', 'User', '')); //登录用户名 ListBox1.Items.Add('密码:' + myIniFile.ReadString('DBConf', 'Password', '')); //登录密码 finally myIniFile.Free; end; end; 界面效果 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论