lazarus - 如何使用 TFileStream 在覆盖现有文件之前截断现有文件？

Question

我正在使用下面的代码写入现有文件，但内容会被附加。清空文件并覆盖它需要哪些 TFileStream 选项？

procedure TUtilitiesForm.btnSaveClick(Sender: TObject);
var fs: TFileStream;
begin
  fs := TFileStream.Create(FileNameEdit1.Text, fmOpenWrite);
  fs.Seek(0,fsFromEnd);
  mmoDDL.Lines.SaveToStream(fs);
  fs.Free;
end;

Answer 1

使用 fsFromEnd 可以将数据追加到现有文件的末尾之外，而 fsFromBeginning 从头开始​​，但不会截断文件。

从fmOpenWrite更改为fmCreate

procedure TUtilitiesForm.btnSaveClick(Sender: TObject);
var fs: TFileStream;
begin
  fs := TFileStream.Create(FileNameEdit1.Text, fmCreate);
  try
    mmoDDL.Lines.SaveToStream(fs);
  finally
    FreeAndNil(fs);
  end;
end;