Question

delphi中怎么用TFileStream追加存储文件

Answer 1

FWrite.Seek(0, soFromEnd);
或
FWrite.Position := FWrite.Size;

对于FileStream，能够使用Seek的时候尽可能养成使用Seek的习惯，否则，如果一个文件是在增长的，而如果Size有所缓存，则可能导致的
后果是取错了。并且Size也是通过Seek取得的，Position也是通过Seek改变的，所以没有必要做两次操作。

Answer 2

Var
  buf: Array[0..5] Of Ansichar;
Begin
  With TFileStream.Create('d:\aaa.txt', fmOpenWrite) Do
  Begin
    Try
      Seek(0, soEnd);
      StrPCopy(buf, '123abc');
      WriteBuffer(buf, SizeOf(buf));
    Finally
      Free;
    End;
  End;