Langsamer und unpraktischer das tatsächliche Nachzählen
Delphi-Quellcode:
proceure DatensätzeNachzählen;
var i : integer;
begin
i := 0;
table1.first
while not table1.eof do begin
inc(i);
table1.next;
end;
end;
Nur so um deine Frage mit der Schleife mal zu beantworten. Aber achtung, variante bidde net nutzen. Selbst wenn du disablecontrols und enablecontrols und requestlive ausstellst und autocalc := False nutzt, dauert es trotzdem ewig.
Gruß