Delphi-Help

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;