Delphi INI文件保存與讀取

//需要引用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;

界面效果