说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

编辑:说三道四文库 发布时间:2018-07-17 12:18
HTML文档下载 WORD文档下载 PDF文档下载
也就是如何能够不删除原来的内容,让数组中的内容添加到文件
创建2禁止的文件,可以写入
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;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
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;
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘