创建和/或写入文件

我觉得这应该很容易，但谷歌目前完全让我失望。我想打开一个文件，或者如果它不存在则创建它，然后写入它。

下列

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

当文件尚不存在时，在第二行抛出错误，我认为这是预期的。但我真的没能找到如何a）测试文件是否存在以及b）在需要时创建它。

仅供参考，在 Delphi XE 工作。

您可以使用FileExists http://docwiki.embarcadero.com/VCL/en/SysUtils.FileExists函数，然后使用Append http://docwiki.embarcadero.com/VCL/en/System.Append如果存在或Rewrite http://docwiki.embarcadero.com/VCL/en/System.Rewrite如果不。

    AssignFile(logFile, 'Test.txt');

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

   //do your stuff

    CloseFile(logFile);