ini配置文件

这里有对TIniFile对象的完整介绍：使用Delphi内置函数读写INI文件

看完上面的介绍，我们开始对ini文件进行读写操作

首先准备一个ini文件，位置和程序在同一个目录下，文件内容如下：

[System]

Server=127.0.0.1

DataBaseName=pubs

UserName=sa

Password=

然后开始画窗体，添加四个Edit控件，和一个Button控件，使用默认的名称

最后写代码：

implementation

uses IniFiles;

var

iFile :TiniFile;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);{窗体加载时读取ini文件的值}

begin

iFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'data.ini');

try

Edit1.Text := iFile.ReadString('System','Server','');

Edit2.Text := iFile.ReadString('System','DataBaseName','');

Edit3.Text := iFile.ReadString('System','UserName','');

Edit4.Text := iFile.ReadString('System','Password','');

finally

      iFile.Free;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);{点击按钮时写入ini文件的值}

begin

iFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'data/data.ini');

try

       iFile.WriteString('System','Server',Edit1.Text);

       iFile.WriteString('System','DataBaseName',Edit2.Text);

       iFile.WriteString('System','UserName',Edit3.Text);

       iFile.WriteString('System','Password',Edit4.Text);

finally

    iFile.Free;

end;

end;

    ini.Free;

end;

 

var
iserver,idatabasename,iUserName,iPassword:string;
iPort,itime:string;
begin
iFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'PdaService.ini');

  try

    iserver := iFile.ReadString('data','Server','');

    idatabasename := iFile.ReadString('data','DataBaseName','');

    iUserName := iFile.ReadString('data','UserName','');

    iPassword := iFile.ReadString('data','Password','');

    iPort:= iFile.ReadString('Port','ServicePort','');

    itime:= iFile.ReadString('Time','interval','');