1,183
社区成员
发帖
与我相关
我的任务
分享如何在磁盘上建立并读写一个2进制的文件。如果用Stream操作怎么实现？
如何在磁盘上建立并读写一个2进制的文件。如果用Stream操作怎么实现？请各位高人写消息点。本人是新手。
...全文
请发表友善的回复…
发表回复
meng625 2004-01-11
- 打赏
- 举报
up
xiaoxiaobai 2004-01-07
- 打赏
- 举报
建立一个文件并写入内容的例子：
s := '要写的内容';
f := TFileStream.Create('c:\1234567.txt', fmCreate);
f.Write(s[1], Length(s));
f.Free;
结贴给分谢谢！
s := '要写的内容';
f := TFileStream.Create('c:\1234567.txt', fmCreate);
f.Write(s[1], Length(s));
f.Free;
结贴给分谢谢！
xiaoxiaobai 2004-01-07
- 打赏
- 举报
var
fStream: TFileStream;
begin
fStream := TFileStream.Create('c:\1.txt', fmOpenRead);
//fStream.Read(...); //读
//fStream.Write(...); //写
fStream.Free;
end;
fStream: TFileStream;
begin
fStream := TFileStream.Create('c:\1.txt', fmOpenRead);
//fStream.Read(...); //读
//fStream.Write(...); //写
fStream.Free;
end;
