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

[livin]

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

[zsy_good]

创建2禁止的文件，可以写入

[lxpbuaa]

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;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[bphoenix]

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;