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

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

编辑:说三道四文库 发布时间:2018-01-21 04:48
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;
AngularJS 1.3.0正式发布 超光速发展! 学个痛快!十款不容错过的Swift iOS开源项目 HTML5:助力智能电视生态实现新跃迁 MDCC 2014移动开发者大会公布全部议程 求更密集!Apple Watch SDK将于11月正式开放 返回参数?! 在javascript中調用java方法﹐怎麼樣將javascript中的變量作為參數傳遞給java方法呢﹖ 怎么在textbox里显示系统时间? 有什么函数吗? 急!!!怎样写共享库的MAKEFILE文件? 在javascript中調用java方法﹐怎麼樣將javascript中的變量作為參數傳遞給java方法呢﹖ 谁有ImgEdit或ImgScan的中文帮助或者事例程序 请问为什么我的程序有时会出现这种错误 急救啊,DELPHI5安装程序下不下来啊 寻找指定范围内素数的小程序 国庆节作文怎么写,写什么?100词的,英语 2009国庆检阅作文该怎么写? 初中英语短文100字 走亲戚、成长的记忆 作文800字,文体不限,回答后 走亲戚作文 800字 急求【早】800字作文,文体不限最好是议论文,好的 800字 文体不限要求:“以感谢教师,赞美教师为主 成功的背后 500字作文 2009国庆作文主要写的是有关阅兵仪式 的 字数7 美国10位最高薪CEO年收入首次全部澳女子高速公路慢跑途中遭遇歹徒险些被巨型牡蛎长约35.5厘米 或为世界最巨型牡蛎长约35.5厘米 或为世界上2047年:全球高温临界点?医疗纠纷或由医调委处理来麦当劳过“第二个儿童节”瘫痪日记新会区档案局“把历史搬进校园”福特ST“钢炮双子”亮相2013泛珠美女们的别墅新格物致道穿越动漫成神记唐砖汉皇系统环球动漫嬉戏谷旅游浅水湾旅游百山祖旅游南溪村旅游天堂山旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘