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','');
posted on 2011-01-19 13:42 Edison-技术 阅读(1454) 评论(0) 编辑 收藏 举报