Problem mit myQuery

[lucy]

guten morgen,

habe eine query(count), wie frage ich jetzt die Anzahl der Datensätze ab?

Delphi-Quellcode:

procedure TForm1.pruefenTimer(Sender: TObject);
 var anzahl: integer;
begin
  anzahl:= count.FieldByName('id').AsInteger; // das ist falsch
  Label2.Caption := 'Anzahl Datensätze  : '+ InttoStr(anzahl);
end;

[lucy]

ach ja,

habe nicht alles gelesen

hiermit geht es :

MyQuery2.Fields[0].AsInteger;

[lucy]

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;

[DeddyH]

Wo führst Du denn Deine Query aus? Im Timer ja augenscheinlich nicht, wie soll man da also Änderungen mitbekommen?

[lucy]

Zitat:

Wo führst Du denn Deine Query aus? Im Timer ja augenscheinlich nicht, wie soll man da also Änderungen mitbekommen?

if anzahl <> count.Fields[0].AsInteger then count ist meine Query

[DeddyH]

Schön. Die wird einmal ausgeführt und enthält dann die Anzahl der Datensätze zum Zeitpunkt der Ausführung. Solange Du sie nicht erneut ausführst, wird sich diese Anzahl aber niemals ändern.

[lucy]

Zitat:

Schön. Die wird einmal ausgeführt und enthält dann die Anzahl der Datensätze zum Zeitpunkt der Ausführung. Solange Du sie nicht erneut ausführst, wird sich diese Anzahl aber niemals ändern.

ok, deshalb setze ich ja einen Timer ein. aber das wird dann der falsche Weg sein! habe hier noch einen Denkfehler drin