TADODataset durchscrollen wird immer langsamer

[alzaimar]

Ich habe hier eine Tabelle mit 50.000 Datensätzen. Die wollte ich mal einlesen und durchscrollen (mit MyDataset.Next)...

Das wird ja immer langsamer, je weiter hinten man sich in der Tabelle befindet!

Für die ersten 1000 Zeilen werden in 16 ms durchgescrollt, die Zeilen 40000-41000 dagegen in 1218ms! Die Zunahme ist übrigens linear, pro 1000 Zeilen wird das Ganze um ca. 30ms langsamer.

Kann das jemand nachvollziehen? (Vermutlich) und kennt jemand einen Trick, wie man das umgehen kann?

Hier der Code (vielleicht werde ich ja einfach alt):

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  t: Cardinal;
  n : Integer;

Begin
  ADODataset1.Open;
  t := GetTickCount;
  n := 0;
  While Not ADODataset1.eof Do Begin
    inc(n);
    If n Mod 1000 = 0 Then Begin
      memo1.lines.add(format('%d %d', [n, GetTickCount - t]));
      t := GetTickCount;
    End;
    ADODataset1.Next;
  End;
End;

Da das Memo nur 44 mal angefasst wird, hab ich mir ein BeginUpdate/EndUpdate übrigens gespart. Bringt hier sowieso nix.