关于下载记录文件的问题

Question

一个3W多条的记录操作格式如下：行号(integer)    状态值(byte)       完成量(int64)       当前应完成量(int64)
  从0开始        三种值0,1,2     时实操作100毫秒一次     固定不变
象这样的记录的读取、查找、保存有什么好的方法？是实时操作的，不要数据库.

Answer 1

如果不想用数据库，那么就用记录文件处理好了！
Type THead=Record
       HeadDefine here
     end;
     TRecord=Record
       RecordDefine Here
     end;Var
   F:File;
   H:THead;
   Rec:TRecord;
   sz:integer;
begin
     ...........
     Blockread(F,H,SizeOf(H));
     Blockread(F,Rec,SizeOf(TRecord),sz);
     while sz=SizeOf(TRecord) do
     begin
           do something........
           Blockread(F,Rec,SizeOf(TRecord),sz);     
     end;  
     closefile(f);
end;

Answer 2

再加TStream,TStrings的操作会再好点!