怎样创建和读写配置文件？

Question

var
  faceIni: TIniFile;
......
      
      faceini:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\MP.ini');
      //读取内容 
      HostName:=faceIni.ReadString('Host','HostName','');
      Path:=faceIni.ReadString('face','facePath','');
      bTopItem:=faceIni.ReadBool('face','TopItem',false);
      sOperatorName:=faceIni.ReadString('face','OperatorName','');
  try
    WinIni:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\MP.ini');
    //写入内容
    WinIni.WriteString('face','facePath',ComboBox1.Text);
    WinIni.WriteBool('face','Caption',ManProForm.ToolBar1.ShowCaptions);
    WinIni.WriteBool('face','TopItem',ManProForm.bTopItem);
  finally
    WinIni.Free;
    Close;
  end;

Answer 1

其实就是两个API函数：GetPrivateProfileString(lpAppName, lpKeyName, lpDefault: PChar;
  lpReturnedString: PChar; nSize: DWORD; lpFileName: PChar)WritePrivateProfileStringA(lpAppName, lpKeyName, lpString, lpFileName: PAnsiChar)

Answer 2

  建议使用TiniFile 
 
 

Answer 3

再uses中加上inifiles
再 var
iniDb:TIniFile;
USER,PASS,DataSource:String;
begin  iniDb := TIniFile.Create(ExtractFilePath(Application.ExeName)+'\db.ini');
  USER := iniDb.ReadString('db','user','');
  PASS := iniDb.ReadString('db','pass','');
  DataSource := iniDb.ReadString('db','DataSource','');
  iniDb.Free;

Answer 4

推荐使用TIniFile或TRegistry对象