如何将数组的内容添加到一个文件的末尾

Question

也就是如何能够不删除原来的内容，让数组中的内容添加到文件

Answer 1

var
  A: Array of Integer;
  I: Integer;
  F: TFileStream;
begin
  SetLength(A, 10);
  for I := Low(A) to High(A) do
    A[I] := I;
  F := TFileStream.Create('g:\aa.txt',fmCreate);
  F.Seek(0, soFromEnd);
  F.Write(A[Low(A)], Length(A)*SizeOf(Integer));
  F.Free;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

Procedure AppendFiledata(FileName, Data: String);
Var
  f: TFileStream;
Begin
  If fileExists(FileName) Then
    F := TFileStream.Create(FileName, fmOpenReadWrite Or fmShareDenyNone)
  Else
    F := TFileStream.Create(FileName, fmCreate Or fmShareDenyNone);
  F.Seek(0, soFromEnd);
  F.write(Data[1], Length(Data));
  F.Free;
End;