delphi 写入ini文件

users IniFiles

var
   ReadIniFile : TIniFile;
   IniFileName:string;
begin
    IniFileName:=ExtractFilePath(Application.Exename)+'server.INI';
    ReadIniFile := TIniFile.Create(IniFileName);
    ReadIniFile.WriteString('SYSTEM','ServerIP',edit1.Text);
    ReadIniFile.WriteString('SYSTEM','DataBase',edit2.Text);
    ReadIniFile.WriteString('SYSTEM','UserNamse',edit3.Text);
    ReadIniFile.WriteString('SYSTEM','PWD',edit4.Text);
    ReadIniFile.Free;
    application.MessageBox('保存成功','提示信息',mb_ok+mb_iconinformation);
end;

ini问件名为：server

内部代码
[SYSTEM]
ServerIP=
DataBase=
PWD=
UserNamse=

转载于:https://www.cnblogs.com/wenwencao/archive/2008/11/14/1333422.html