delphi – 创建和/或写入文件

前端之家收集整理的这篇文章主要介绍了delphi – 创建和/或写入文件前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我觉得这应该很简单,但谷歌完全失败了我。我想打开一个文件,或创建它,如果它不存在,并写入它。

下列

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

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

FYI,在德尔福XE工作。

解决方法

您可以使用 FileExists功能,然后使用 Append(如果存在)或 Rewrite(如果不存在)。
  1. AssignFile(logFile,'Test.txt');
  2.  
  3. if FileExists('test.txt') then
  4. Append(logFile)
  5. else
  6. Rewrite(logFile);
  7.  
  8. //do your stuff
  9.  
  10. CloseFile(logFile);

猜你在找的Delphi相关文章