5,930
社区成员
发帖
与我相关
我的任务
分享我想写一个过程，传入文件名，然后把文件用二进制方式读取传出，应该怎么做呢？
我想写一个过程，传入文件名，然后把文件用二进制方式读取传出，应该怎么做呢？
...全文
请发表友善的回复…
发表回复
李_军 2003-02-24
- 打赏
- 举报
procedure ReadMyFile(sFileName: String);
Var
f1 : File of byte;
ch:Byte;
i:Integer;
begin
assignfile(f1,sFileName); //对文件进行关联
reset(f1);
for I:=0 to FileSize(f1)-1 do
Read(F1, Ch);
//自己写传出的代码
closefile(f1); //关闭文件
end;
Var
f1 : File of byte;
ch:Byte;
i:Integer;
begin
assignfile(f1,sFileName); //对文件进行关联
reset(f1);
for I:=0 to FileSize(f1)-1 do
Read(F1, Ch);
//自己写传出的代码
closefile(f1); //关闭文件
end;
