使用TFileStream读取文件，分析自定义结构的数据文件。

TFileStream对文本读取的操作。有个竞争对手的数据是他们自己写的结构体，然后存成一个文件。我就是用了一个小工具，解读出他们的结构体，然后做了个循环，把它们的数据都读出来的。

好在他们的文件没有加密。

分析的小工具呢，我上传的资源里面有。其规则如下：

字符串的存储是，一个Byte和一个String一起保存的。比如“Love”存在文件中，是先保存一个值为4的Byte，再保存“Love”这个字符串。

Double的存储，是直接保存一个8位。

Integer保存一个4位的值。

 

假如它们的表结构如下：

ID integer;

aName:varchar(255);

Count:double;

当然这个结构先要用工具分析出来。就上面写的那个。这个简单的比方，如果没有加密，明眼人一下就能看出来的。

然后写个程序循环读出数据来就好了。比方只读其中一个：

type ReadD=record

 ReadID：integer;

ReadName:array[0..1023]of char;

ReadCount:double;

end;

 

var

 RD:ReadD;

ln:byte;

 

//create打开文件

Files.read(RD.Readid,sizeof(integer));

Files.read(ln,sizeof(ln));

Files.read(RD.ReadName,ln);

Files.read(RD.ReadCount,sizeof(double));

 

就读出一条记录啦。

通常使用这种方式存储字符串的。比较省空间。而且有时候使用这种方法，插入空白区域。

 

readID

 定义部分：

var
  sel:Integer;
  buf:array[0..1023]of char;
  ln:byte;
  i,p1,p2,ep:integer;
  Rstr:string;
  Rint:Integer;
  Rdouble:Double;
  Rbyte:Byte;          

函数体主要部分：

       Files.Position:=i;
            Files.Read(ln,sizeof(ln));
            if i+ln>ep then exit;
            Files.Read(buf,ln);
            rstr:=buf;
            mmo1.Lines.Add('Pos:'+inttostr(i)+'  Len:'+inttostr(Ln)+'  Str:'+rstr);

           Files.Position:=i;
           Files.Read(rint,sizeof(rint));
           mmo1.Lines.Add('Pos:'+inttostr(i)+'  Int:'+inttostr(rint));

            Files.Position:=i;
             Files.Read(rdouble,sizeof(rdouble));
              mmo1.Lines.Add('Pos:'+inttostr(i)+'  Dbl:'+floattostr(rdouble));

           Files.Position:=i;
           Files.Read(ln,sizeof(ln));
            mmo1.Lines.Add('Pos:'+inttostr(i)+'  byte:'+inttostr(ln));