紧急求助：请问有什么办法能使得ADOTable取出的记录以每次显示10条的形式分页显示~~~！

Question

建议你 定义一个记录类型的变量：如
type
  TMyrecord=record
    Record1: (Type of Field1);
    Record2: (Type of Field2);
    .
    .
    Recordn: (Type of Fieldn);
  End;
  TMyrecords=array of TMyrecord;implementation
var
  MyRecord:TMyRecords;  接着用QUERY组件查询或是用Table组件获得数据
  然后
  Query.First
  for i:=0 to Query.Count-1 do
  begin
    MyRecord[i].Record1:=Query.FieldValues['Field1']
    .
    .
    Myrecord[i].Recordn:=Query.FieldValues['Fieldn']
    j:=j+1;
    if j<Query.Count then Query.Next;
  end;
  这样把所有的数据库记录取到了Myrecord中。
  你就可以对它进行随心所欲的操作了。  

Answer 1

建议你 定义一个记录类型的变量：如
type
  TMyrecord=record
    Record1: (Type of Field1);
    Record2: (Type of Field2);
    .
    .
    Recordn: (Type of Fieldn);
  End;
  TMyrecords=array of TMyrecord;implementation
var
  MyRecord:TMyRecords;  接着用QUERY组件查询或是用Table组件获得数据
  然后
  Query.First
  SetLength(MyRecord,Length(MyRecord)+1) //刚刚少了这一句
  for i:=0 to Query.Count-1 do
  begin
    MyRecord[i].Record1:=Query.FieldValues['Field1']
    .
    .
    Myrecord[i].Recordn:=Query.FieldValues['Fieldn']
    j:=j+1;
    if j<Query.Count then Query.Next;
  end;
  这样把所有的数据库记录取到了Myrecord中。
  你就可以对它进行随心所欲的操作了。