如何向文本文件的末尾添加文本？

Question

我想在文本末尾添加文本 就像日志那样 但是用下面的代码只插入了一条
procedure TForm1.Button1Click(Sender: TObject);
var t:TFileStream;
 Buffer: Array[ 0..100] of Char;
begin
 try
 t:=TFileStream.Create('h:\t.log',fmCreate );
 t.Seek(t.Size,soFromBeginning);
 buffer:='data....';
 t.WriteBuffer(buffer,sizeof(buffer));
 finally
 t.Free;
 end;
end;

Answer 1

procedure InsertLogInfo(const FName,S:string);
var
  F:TFileStream;
begin
  try
    if FileExists(FName) then
      F:=TFileStream.Create(FName,fmOpenReadWrite  or fmShareDenyWrite )
    else
      F:=TFileStream.Create(FName,fmCreate or fmShareDenyWrite);
    f.Seek(0,soFromEnd);
   // F.Position:=F.Size;
    F.WriteBuffer(pointer(S)^,Length(S))
  finally
    F.Free;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   InsertLogInfo('d:\F.log',formatdatetime('yyyy/mm/dd hh:MM:nn.zzz',now));
end;