我觉得这应该很简单,但谷歌完全失败了我。我想打开一个文件,或创建它,如果它不存在,并写入它。
下列
- 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);