zoukankan      html  css  js  c++  java
  • 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;

    界面效果

  • 相关阅读:
    记录优雅的pythonic代码
    记录python学习过程中的一些小心得
    关于理解python类的小题
    CSS3之属性选择器
    CSS3之初始
    HTML5+CSS3之离线web应用
    HTML5+CSS3之响应式视频以及iFrame下插入响应式视频的解决方案
    HTML5+CSS3之播放视频以及在IE8及以下的解决方案
    HTML5+CSS3响应式设计(二)
    HTML5+CSS3响应式设计(一)
  • 原文地址:https://www.cnblogs.com/liessay/p/7118373.html
Copyright © 2011-2022 走看看