ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 文件读入文件流,逐一取出文件中的每一字节(不含中文)

文件读入文件流,逐一取出文件中的每一字节(不含中文)

原创 Linux操作系统 作者:niuchao 时间:2019-03-10 20:51:05 0 删除 编辑
procedure TForm1.Button1Click(Sender: TObject);
const BufSize=128;
var FileStream: TFileStream;
    i, BodyLen, ReadCount, ModRead: integer;
    BodyBuf: array [0..70000] of Byte;
    BodyBufchar: array [0..70000] of Char;
begin
  try
    FileStream := nil;
    FileStream := TFileStream.Create('c:\test.txt', fmOpenRead);
    BodyLen := FileStream.Size;
    FileStream.Position := 0;


    ReadCount := BodyLen div BufSize;
    ModRead   := BodyLen mod BufSize;


    for i := 1 to ReadCount do
      FileStream.ReadBuffer(BodyBuf[(i-1)*BufSize], BufSize);


    if ModRead > 0 then
      FileStream.ReadBuffer(BodyBuf[ReadCount*BufSize], ModRead);


     for i := 0 to BodyLen -1 do
     begin
       BodyBufchar[i] := chr(BodyBuf[i]);
       Memo1.Lines.Add(chr(BodyBuf[i]));
     end;


     FreeAndNil(FileStream);
  except on e:exception do
    ShowMessage(e.Message);
  end;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166523/viewspace-775956/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2004-11-04

  • 博文量
    139
  • 访问量
    108143