给你个例子,供参考,
procedure Tsysshezhi.Button1Click(Sender: TObject);
begin
IniFile:=tinifile.Create(datamodule2.GetIniFilePath);
if (trim(edtaddress.Text)='') and (trim(ftpaddress.Text)='') then
begin
inifile.Free;
end else begin
//写
if trim(edtaddress.Text)<>'' then
inifile.WriteString('sever_ip','sever',trim(edtAddress.Text));
if trim(ftpaddress.Text)<>'' then
inifile.WriteString('ftp_sever','ftp_ip',trim(ftpaddress.Text));
//读
ser_ip:=IniFile.ReadString('sever_ip', 'sever', '');
user_name:=inifile.readstring('user_name','default_name','');
user_pw:=inifile.readstring('user_pw','default_pw','');
dbname:=inifile.readstring('dbname','database','');
ftp_ip:=inifile.readstring('ftp_sever','ftp_ip','');
IniFile.Free;
end;
开始的时候,先读ini文件,操作时进行写文件