Zitat:
i ist als lokale Variable immer noch nicht initialisiert, das kann nicht funktionieren. Wurde aber auch schon mehrfach gesagt. Speicher Dir die zuletzt gelesene Anzahl in einem privaten Feld oder zur Not in einer globalen Variablen.
habe eine globale Variable angelegt. danke
Delphi-Quellcode:
var
Form1: TForm1;
zahl: integer = 0;
Delphi-Quellcode:
procedure TForm1.pruefenTimer(Sender: TObject);
var anzahl: integer;
s: String;
begin
count.Refresh;
anzahl:= count.Fields[0].AsInteger;
if anzahl <> zahl then
begin
zahl := anzahl;
Label2.Caption := 'Anzahl Datensätze : '+ InttoStr(zahl);
end
end;