Question

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

Answer 1

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

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