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;

[himitsu]

Um dir gleich die Verwendung globaler Variablen abzugewöhnen, bevor du dir solch schlimmen Dinge noch angeöhnst.

DAS ist ja eine Variable, welche innerhalb von Form1 und dessen Methoden verwendet wird, also sollte sie besser auch dort rein.

Delphi-Quellcode:

type 
  TForm1 = class(TForm)
    ...
  private
    zahl: integer; 
  end;

Und globale Variablen und Felder in Ojekten/Klassen sind per Default mit 0 initialisiert.