delphi判断文件是否存在问题

2025-02-05 14:07:06

推荐回答（3个）

回答（1）：

你看看你写的这句“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允许就行）！

回答（2）：

不知道你用什么命令来生成文件的
如果是调用外部程序或命令的话，可以用WaitSingleObject来等待该进程结束，然后再判断。
如果是自己写代码来生成，可以最后用个Application.ProcessMessage来先响应下消息。

回答（3）：

判断生成文件B的操作是否成功就行了