wird trotzdem nur einmal ausgelesen (timer) ?
Delphi-Quellcode:
procedure TForm1.pruefenTimer(Sender: TObject);
var anzahl: integer;
begin
if anzahl <> count.Fields[0].AsInteger then
begin
anzahl:= count.Fields[0].AsInteger;
Label2.Caption := 'Anzahl Datensätze : '+ InttoStr(anzahl);
end
end;