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

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
;

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

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!