我正在使用下面的代码写入现有文件，但内容已附加。清空文件并覆盖文件时，需要哪些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;
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;
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句