Question

delphi判断文件是否存在问题

在同一个事件中，文件夹A中生成文件B,然后用FileExis判断文件B是否生成。问题是在这个事件触发后4秒文件B才出现，而FileExis是触发即做出判断，这势必会报错。
请问高人此问题怎解决？
经过实验问题的症结似乎是：当A文件夹中有另外的文件（如C）时，FileExis语句就难以对是否有B做出正确的判断；当A是个空文件夹时，FileExis语句就能够做出正确的判断。而问题恰恰是B必须通过C才能生成，并且必与C同处一室。
哪位高人能指点迷津、解决问题？！
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.SaveToFile(pchar(extractFilePath(application.exeName)+'newFile\123.txt'));

if FileExists(pchar(extractFilePath(application.exeName)+'newFile\123.txt'));
then
label2.Caption :='创建成功'
else
label2.Caption :='创建失败';
end;
如果'newFile文件夹中另有任一一个文件，则总是报失败，而事实上创建是成功的。

Answer 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允许就行）！

Answer 2

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

Answer 3

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