?

解决方案 »

  1.   

    var
       str:string;
       fileStream: TFileStream;
    begin 
      fileStream := TFileStream.Create('data.tem',fmOpenWrite or fmShareDenyNone);
       str:='wwwwwwww';
      fileStream.Writebuffer(str,20);
         str:='dsmis';
      fileStream.Writebuffer(str,20);
         str:='sa';
      fileStream.Writebuffer(str,20);
         str:='wei';
      fileStream.Writebuffer(str,20);  fileStream.Free;
      

  2.   

    方法一:使用流,TFileStream,TMemoryStream等,都可以打开文本或二进制文件,然后一个个字节的读写方法二:使用文件类型变量File,TextFile等,然后使用Read,Write,Append(文本)或BlockRead,BlockWrite(二进制)函数或过程
      

  3.   

    TextFile是文本文件类型,二进制读写应该使用File文件类型,
    读写操作用BlockRead,BlockWrite函数最佳。
      

  4.   

    补充:
    BlockRead,BlockWrite这两个函数即可对字节块(多个字节)进行操作,也可对单个的字节进行操作,只要在打开文件时在过程Reset里进行设定即可。
      

  5.   

    不好意思,再补充一点:
    通过移动文件指针,使用BlockRead,BlockWrite可以对一个二进制文件中任意位置、任意大小的字节块进行读写操作。