如何清除INI文件里的所有内容?

Question

var
myfile:Tinifile;
s:TStringList;
q:integer;
begin
 myfile:=Tinifile.Create('c:\file.ini');
   s := Tstringlist.Create ;
   myfile.ReadSectionValues( 'file',s);
   for q:=1 to s.Count do
      begin
          myfile.DeleteKey('file','dateset'+inttostr(q));
      end;
end;
注：
文件名：file.ini
我的文件格式为
[file]
dateset1=
dateset2=
    .
    .
    .

Answer 1

var
  IniFile : TextFile ;
begin
AssignFile(INIFile,YourIniFileName);
Rewrite(IniFile) ;
Close(IniFile); 
end ;

Answer 2

var
  iniFile: TextFile ;
begin
  AssignFile(IniFile,yourIniFileName);
  Rewrite(inifile) ;
  CloseFile(iniFile) ;
end ;

Answer 3

如果你要清除的内容是文件的全部内容，为什么不使用DeleteFile将文件删除，然后再重建呢？
如果你想删除每个Section下的内容，那么首先创建一个TStringList对象，然后利用ReadSections方法，将所有的Section信息读到TStringList中，然后利用循环，使用ReadSectionValues方法将该Section中的所有内容读到另外一个TStringList中，最后利用DeleteKey方法将你不需要的内容删除！！！

Answer 4

Delphi_Li(Delphi Li）的方法是最好的