delphi – 创建和/或写入文件

发布时间：2020-12-15 10:17:42 所属栏目：大数据来源：网络整理

导读：我觉得这应该很简单，但谷歌完全失败了我。我想打开一个文件，或创建它，如果它不存在，并写入它。下列 AssignFile(logFile,'Test.txt');Append(logFile); 当文件不存在时，会在第二行引发错误，我认为这是一个预期。但是我真的很失望地找出如何a)测试文件

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

下列

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);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!