Добавление строки к файлу

Советы » Файлы » Добавление строки к файлу

procedure

AddStrToFile(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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com