如何创建自已的数据存储格式呀.请那位高手指点指点.(100分)

Question

数据块格式.
TDataBlock=record 
  dbSize:Integer;
  dbType:Integer;
  ...
end;

Answer 1

定义一个头文件
如
Thead=record
  dtype: integer;
  Count: integer;
  ...
end;然后写数据，比如你的数据是
TData= record
  Name:  array [0..11] of char;
  age :  integer;
  ...
end;var
head:thead;
datas: array of tdata;
F:TFileStream;
begin
  head.count:=100;
  ...//写头文件内容
  setlength(datas,head.count);
  for i:= 0 to head.count -1 do
  begin
     datas[i].name:=''
     ...//输入数据
  end;
  F:=TFileStream.create('E:\temp.ddd',fmcreate);
  F.write(head,sizeof(Thead));
  for i:= 0 to head.count-1 do
  begin
     F.write()
     ...//写数据
  end;
end;

Answer 2

taxi(小强！小强！你死的好惨啊！):请问是程序员杂志第几期上有呀.