如何把一组整数保存到二进制文件

harabi 2003-10-19 12:58:28
将从c++里面调用该文件
...全文
86 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ruthfox 2003-10-19
  • 打赏
  • 举报
回复
如数据在A中(A: array[0..n] of integer),可以这样写
var
F: TFileStream;
begin
F := TFileStream.Create(FileName, fmCreate);
F.Write(A[0], (High(A) + 1) * SizeOf(Integer));
F.Free;
end;
pankun 2003-10-19
  • 打赏
  • 举报
回复
var
MyFile: File of WORD;
Tmp: WORD;
begin
Tmp := 1000;
AssignFile(MyFile, 'MyFile.dat');
ReWrite(MyFile);
Write(MyFile, Tmp);
CloseFile(MyFile);
end;
随手写的,你试试吧.
Mars 2003-10-19
  • 打赏
  • 举报
回复
blockwrite

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧