Einzelnen Beitrag anzeigen

lucy

Registriert seit: 25. Okt 2017
67 Beiträge
 
Delphi XE7 Starter
 
#16

AW: Problem mit myQuery

  Alt 7. Nov 2022, 12:23
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;
  Mit Zitat antworten Zitat