我想写一个过程，传入文件名，然后把文件用二进制方式读取传出，应该怎么做呢？

Question

我想写一个过程，传入文件名，然后把文件用二进制方式读取传出，应该怎么做呢？

Answer 1

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;