if FileExists(edt_FileName.Text) then
  DeleteFile(edt_FileName.Text); //存在就删除

解决方案 »

  1.   

    var
      path: String;
    begin
      if FileExists(Path+'aaa.ini') then
        DeleteFile(Pchar(Path+'aaa.ini'));
    end;
      

  2.   

    boolean lb_exist
    integer ret
    lb_exist = FileExists(ls_docname)
    IF lb_exist THEN 
    ret = MessageBox("Delete", &
    "Delete file?", Question!, OKCancel!)IF ret = 1 THEN 
    FileDelete(ls_docname)
      

  3.   

    再请教一下各位,FileExists返回的是什么类型?
      

  4.   

    boolean
    function FileExists(const FileName: string): Boolean;