如何在覆盖之前使用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;