delphi – 创建和/或写入文件

我觉得这应该很简单，但谷歌完全失败了我。我想打开一个文件，或创建它，如果它不存在，并写入它。

下列

AssignFile(logFile,'Test.txt');
Append(logFile);

当文件不存在时，会在第二行引发错误，我认为这是一个预期。但是我真的很失望地找出如何a)测试文件是否存在，以及b)在需要时创建它。

FYI，在德尔福XE工作。

解决方法

您可以使用 FileExists功能，然后使用 Append(如果存在)或 Rewrite(如果不存在)。

AssignFile(logFile,'Test.txt');

    if FileExists('test.txt') then
      Append(logFile)
    else
      Rewrite(logFile);

   //do your stuff

    CloseFile(logFile);