Problem mit myQuery

[lucy]

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;