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;
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;