5,943
社区成员
发帖
与我相关
我的任务
分享能给我一段利用tfilestream的seek,write,read的简单例子。
能给我一段利用tfilestream的seek,write,read的简单例子。
...全文
请发表友善的回复…
发表回复
lff0305 2002-10-14
- 打赏
- 举报
var
f:TFileStream;
i:integer;
begin
f.Seek(0,soFromBeginning);
f.Read(i,Sizeof(i)); //从流中读取Sizeof(i)个字节写入i中
f.Write(i,Sizeof(i)); //把i写入流中，长度为Sizeof(i)个字节
注:这里用各种类型替换i均可。
f:TFileStream;
i:integer;
begin
f.Seek(0,soFromBeginning);
f.Read(i,Sizeof(i)); //从流中读取Sizeof(i)个字节写入i中
f.Write(i,Sizeof(i)); //把i写入流中，长度为Sizeof(i)个字节
注:这里用各种类型替换i均可。
luhaiyan 2002-10-14
- 打赏
- 举报
没有人救我呀？？？
luhaiyan 2002-10-13
- 打赏
- 举报
没有找到！！！！！！！！！！！！！！！！！！！
newyj 2002-10-13
- 打赏
- 举报
help中有
