如题

解决方案 »

  1.   

    DeleteFile
    删除文件就可以了使用TIniFile,在文件不存在的情况下都可以的
      

  2.   

    var F: TextFile;begin
      AssignFile(F, '你的文件');
      Rewrite(F);
      CloseFile(F);
    end;
      

  3.   

    var F: TextFile;begin
      AssignFile(F, '你的文件');
      Rewrite(F);
      CloseFile(F);
    end;
      

  4.   

    var F: TextFile;begin
      AssignFile(F, '你的文件');
      Rewrite(F);
      CloseFile(F);
    end;
      

  5.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      myini:Tinifile;
    begin
      myini.EraseSection(const section:string);
    end;
      

  6.   

    var F: TextFile;begin
      AssignFile(F, '你的文件');
      Rewrite(F);
      CloseFile(F);
    end;
      

  7.   

    var F: TextFile;begin
      AssignFile(F, '你的文件');
      Rewrite(F);
      CloseFile(F);
    end;
      

  8.   

    belllab(bell) (的方法最好
      

  9.   

    var
      iHandle : Cardinal ;
    begin
      iHandle :=  FileCreate('d:\result.txt');
      FileClose(iHandle);
    end;