ini文件操作

uses
  inifiles

//////////////////////////写入

 var
 filename: String;
 FileIni: TIniFile;
begin
 Filename := ExtractFilePath(paramstr(0))+'connect.Ini';
  FileIni := TIniFile.Create(Filename);
  FileIni.writestring('connect','ds', combobox1.Text);
  FileIni.writestring('connect','ic', edit2.Text);
  FileIni.writestring('connect','ui', edit3.Text);
  FileIni.writestring('connect','pw', edit4.Text);
  fileini.Destroy;
  close;
  self.Hide;
  DM_FM:=TDM_FM.Create(self);  

  end;

//////////////////////////读取

var
  Fileds,fileic,fileui,filepw,filename: String;
  FileIni: TIniFile;
begin
Filename := ExtractFilePath(paramstr(0))+'connect.Ini';
  FileIni := TIniFile.Create(Filename);
  Fileds := FileIni.ReadString('connect','ds', '');
  Fileic := FileIni.ReadString('connect','ic', '');
  Fileui := FileIni.ReadString('connect','ui', '');
  Filepw := FileIni.ReadString('connect','pw', '');
  begin
  combobox1.Text:=fileds;
  edit2.Text:=fileic;
  edit3.Text:=fileui;
  edit4.Text:=filepw;
  end;
end;