delphi INI文件操作用法

unit Unit1;

interface

uses

System.IOUtils, System.IniFiles, Winapi.Windows, Winapi.Messages, System.SysUtils,

System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,

Vcl.StdCtrls, Vcl.ExtCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

edtName: TEdit;

Label2: TLabel;

rgSex: TRadioGroup;

rbMan: TRadioButton;

rbWoman: TRadioButton;

Label3: TLabel;

edtAge: TEdit;

GroupBox1: TGroupBox;

Label4: TLabel;

chk1: TCheckBox;

chk2: TCheckBox;

cbbAddress: TComboBox;

Label5: TLabel;

btnSave: TButton;

procedure btnSaveClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

ConfigPath: string;

implementation

{$R *.dfm}

procedure TForm1.btnSaveClick(Sender: TObject);

var

IniFile: TIniFile;

Section: string;

begin

//配置文件

IniFile := TIniFile.Create(ConfigPath);

Section := 'basic';

IniFile.WriteString(Section, 'editName', edtName.Text);

IniFile.WriteString(Section, 'editAge', edtAge.Text);

IniFile.WriteBool(Section, 'man', rbMan.Checked);

IniFile.WriteBool(Section, 'chk1', chk1.Checked);

IniFile.WriteBool(Section, 'chk2', chk2.Checked);

IniFile.WriteInteger(Section, 'address', cbbAddress.ItemIndex);

end;

procedure TForm1.FormCreate(Sender: TObject);

var

IniFile: TIniFile;

begin

ConfigPath := TDirectory.GetCurrentDirectory() + '\UserConfig.ini';

IniFile := TIniFile.Create(ConfigPath);

edtName.Text := IniFile.ReadString('basic', 'editName', '');

edtAge.Text := IniFile.ReadString('basic', 'editAge', '');

rbMan.Checked := IniFile.ReadBool('basic', 'man', False);

rbWoman.Checked := not rbMan.Checked;

chk1.Checked := IniFile.ReadBool('basic', 'chk1', False);

chk2.Checked := IniFile.ReadBool('basic', 'chk2', False);

cbbAddress.ItemIndex := IniFile.ReadInteger('basic', 'address', 0);

end;

end.

推荐分享