procedureAddStrToFile(S:string
;const
FileName:string
;doNextLine:boolean); {Добавление строки к файлу doNextLine - перевод строки} const
CR=#13#10; var
f:TFileStream; begin
if
FileExists(FileName) then
f:=TFileStream.Create(FileName,fmOpenWrite+fmShareDenyNone) else
f:=TFileStream.Create(FileName,fmCreate); f.Position:=f.Size; if
doNextLine and
(f.Size> 0) then
f.Write(CR,2); f.Write(pointer(s)^,length(s)); f.Destroy; end
;