DELPHI判断文件是否打开 这样写正确吗

DELPHI判断文件是否打开 这样写正确吗

问题叙述的不详细，也没有具体图片或型号，请详细描述一下问题、错误、提示内容等等，这样才可以提出针对性的解决方案，麻烦补充一下。

你看看你写的这句“if fileexists(pchar(extractfilepath(application.exename)+'newfile\123.txt')); ”，后面还带了一个分号“；” ，你先把问题弄好再往下看吧~，首先如果在想在某个文件夹中创建文本话，你首先得保证这个文件夹的存在，要不怎么找到他的路径？然后你写的“memo1.lines.savetofile(extractfilepath(application.exename)+'newfile\123.txt'); ”，里面根本用不到pchar你为什么画蛇添足？？你知道pchar和string有什么不同吗？不懂不要乱用好不？然后下面的代码 procedure tform1.button1click(sender: tobject); begin memo1.lines.savetofile(extractfilepath(application.exename)+'newfile\123.txt'); if fileexists(extractfilepath(application.exename)+'newfile\123.txt') then label2.caption :='创建成功' else label2.caption :='创建失败'; end; 上面的代码可以在一个已经存在的newfile文件夹下创建123.txt并写入内容（无论newfile文件夹下有几个txt，只要windows允许就行）！