文件不存在 创建文件 并关闭句柄 哈哈 delphi

 if not fileexists(trim(edit32.Text)) then  fileclose(filecreate(trim(edit32.Text)));