创建和/或写入文件

Question

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

以下

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

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

仅供参考，在 Delphi XE 中工作。

Answer 1

您可以使用FileExists 函数，如果存在则使用Append，如果不存在则使用Rewrite。

    AssignFile(logFile, 'Test.txt');

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

   //do your stuff

    CloseFile(logFile); 

Answer 2

任何使用FileExists 选择如何打开文件的解决方案都存在竞争条件。如果文件的存在在您测试它和您尝试打开文件之间发生变化，您的程序将失败。 Delphi 没有提供任何方法来解决其本地文件 I/O 例程的问题。

如果您的 Delphi 版本足够新，可以提供它，您可以使用 TFile.Open 和 fmOpenOrCreate 开放模式，这正是您想要的；它返回一个TFileStream。

否则，您可以使用 Windows API 函数 CreateFile 来打开您的文件。将dwCreationDisposition 参数设置为OPEN_ALWAYS，告诉它如果文件不存在就创建它。

Answer 3

您应该改用TFileStream。这是一个示例，如果文件不存在则创建文件，如果存在则写入文件：

var
  FS: TFileStream;
  sOut: string;
  i: Integer;
  Flags: Word;
begin
  Flags := fmOpenReadWrite;
  if not FileExists('D:\Temp\Junkfile.txt') then
    Flags := Flags or fmCreate;
  FS := TFileStream.Create('D:\Temp\Junkfile.txt', Flags);
  try
    FS.Position := FS.Size;  // Will be 0 if file created, end of text if not
    sOut := 'This is test line %d'#13#10;
    for i := 1 to 10 do
    begin
      sOut := Format(sOut, [i]);
      FS.Write(sOut[1], Length(sOut) * SizeOf(Char)); 
    end;

  finally
    FS.Free;
  end;
end;

Answer 4

如果你只是做一些简单的事情，IOUtils Unit 会容易得多。它有很多用于写入文件的实用程序。

例如

procedure WriteAllText(const Path: string; const Contents: string); 超载;静态的；

创建一个新文件，将指定的字符串写入文件，然后 关闭文件。如果目标文件已经存在，则覆盖。

Answer 5

您还可以使用TStringList 中的加载/保存功能来解决您的问题。

这可能是一个糟糕的解决方案，因为整个文件将被加载到内存中，在内存中进行修改，然后保存回磁盘。 （与您直接写入文件的解决方案相反）。对于多用户情况，这显然是一个糟糕的解决方案。

但这种方法适用于较小的文件，并且易于使用且易于理解。

const
  FileName = 'test.txt';
var
  strList: TStringList;
begin
  strList := TStringList.Create;

  try
    if FileExists(FileName) then
      strList.LoadFromFile(FileName);

    strList.Add('My new line');

    strList.SaveToFile(FileName);
  finally
    strList.Free;
  end;
end;