fcl-passrc: use fmShareDenyNone when writing pas

This commit is contained in:
mattias 2020-12-19 11:47:14 +00:00
parent f211913978
commit 7633a39273

View File

@ -1659,7 +1659,7 @@ procedure WritePasFile(AElement: TPasElement; const AFilename: string);
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(AFilename, fmCreate);
Stream := TFileStream.Create(AFilename, fmCreate or fmShareDenyNone);
try
WritePasFile(AElement, Stream);
finally