Delphi中如何删除和修改ini文件里的某条记录？

Question

Delphi中如何删除和修改ini文件里的某条记录？各位大侠帮帮忙

Answer 1

Warning: Do not click button2 before you have clicked button1!procedure TForm1.Button1Click(Sender: TObject);var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;procedure TForm1.Button2Click(Sender: TObject);var
  MyIniFile: TIniFile;
  begin  MyIniFile := TIniFile.Create('myapp.ini');  { if the entry wasn抰 there before, delete it now }
  if Memo1.Lines.Values['Title1'] = '' then
    MyIniFile.DeleteKey('Transfer', 'Title1')
  { otherwise, restore the old value }
  else
    MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  MyIniFile.Free;
end;

Answer 2

如果修改ini文件的内容，可以这样实现：
1、在Uses中，新增一个IniFiles类
2、编写代码：
\\读文件
procedure IniRead();
var
  MyIniFile: TIniFile;
  MyStr:String;
begin
  MyIniFile := TIniFile.Create(ini文件的目录);
  MyStr := MyIniFile.ReadString(父节点,节点,初始值);//读Ini文件，如果节点中没有值的时候，此时就取初始值
  MyIniFile.Free;
end;\\写文件
procedure IniRead();
var
  MyIniFile: TIniFile;
begin
  MyIniFile := TIniFile.Create(ini文件的目录);
  MyIniFile.WriteString(父节点,节点,节点赋值);//写Ini文件
  MyIniFile.Free;end;

Answer 3

建议以Tmeminifile取代Tinifile，如果是频繁读写ini文件的话

Answer 4

谁有向ComboBox中添加列表项的例子在贴个给我看看