追加内容到配置文件最前面

Question

如题，配置文件中又内容，我现在想追加点内容，放在配置文件的最上方，求高手帮助！！！！！！

Answer 1

ini文件吗？
如果是，写入新内容后用TStringList加载这个文件，在TStringList中调好位置后再覆盖掉原来的

Answer 2

呵呵，别人给了思路后自己去实现是一种不错的学习方法
演示代码，不是很严谨，你想办法完善吧
procedure TForm1.btn1Click(Sender: TObject);
var
  ini: TIniFile;
  sl, sl2: TStrings;
  MyClass: TComponent;
  i: Integer;
begin
ShowMessage(ExtractFilePath(ParamStr(0)) + 'config.ini');
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
  try
    ini.WriteString('sec', 'p1', 'test1');
    ini.WriteString('sec', 'p2', 'test2');
    ini.WriteString('sec', 'p3', 'test3');
    sl := TStringList.Create;
    try
      sl.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\config.ini');
      if sl.IndexOf('p3=test3') <> -1 then
      begin
        sl2 := TStringList.Create;
        try
          for i := sl.IndexOf('p3=test3') to sl.Count - 1 do
            sl2.Add(sl[i]);
          for i := 0 to sl.IndexOf('p3=test3') - 1 do
            sl2.Add(sl[i]);
          sl2.SaveToFile(ExtractFilePath(ParamStr(0)) + '\config.ini');
        finally
          sl2.Free;
        end;
      end;
    finally
      sl.Free;
    end;
  finally
    ini.Free;
  end;
end;