菜鸟求救！！！请高手帮忙！！！高分！！谢谢！！

Question

已知：数据库文件是用Delphi写的，可以用下列的格式读出数据，数据库文件没有开头，全是数据，记录型数据库。我的数据库地址C:\TestRec\Test.Rec
请问要怎么编呢？如何做到每页20条数据！！求救，，请各位帮帮忙！！Type TestFile=Record
TestType:Integer; 
TestDate:TDateTime; 
TestBeginTime:TDateTime; 
TestEndTime:TDateTime; 
TestMinTime:Integer; 
TestNum:Integer; 
TestPrice:Real; 
TestM1:Real; 
TestM2:Real;
TestM3:Real; 
TestAD:String[16]; 
TheUser:String[16]; 
EmsE:String[100];
End;

Answer 1

你的数据库什么类型？如果可以使用SQL取数据的话,就可以写成:SELECT TOP 20
的形式显示每页20条数据

Answer 2

var ms: TMemoryStream;
   tf: TestFile;
   i: integer;
begin
  ms := TMemoryStream.Create;
  ms.loadFromFile('C:\TestRec\Test.Rec');
  for I:=0 to 19 do
  begin
   ms.read(tf, sizeOf(tf));
   //处理tf的内容, 显示
  end;...
  ms.free;

Answer 3

我也不清楚是什么类型，就相当于文本类型吧！
数据库里没有任何开头，全是数据库，数据库可以用16进制软件修改里面为REAL属性的内容！！

Answer 4

就把它当成文本数据库,直接用ADOCONNECTION连,用数据集处理也可以.