eof, wo?

[Sanguis]

Hi,
ich stehe momentan vor einem Problem, von dem ich nicht weiß ob ich einfach zu dumm bin weil es so banal ist.

Ich habe eine tabelle in einem query geladen (paradox). Diese durchlaufe ich per Buttonklick. Also immer wenn ich auf einen Button klicke wähle ich den nächsten Datensatz an und verarbeite ihn.

also:

query1.next;
...
...
weitere anweisungen
...
...


jetzt will ich, wenn beim button klick der letzte Datensatz verarbeitet wird, den button anders beschriften. Momentan ist er mit "next >>" beschriftet und ich will das dann in "ende" umwandeln.
Jetzt hab ich das versucht mit:

if Query1.Eof then Button.Caption := 'ende';

direkt nach dem query1.next..
Und da kommt mein Problem. Das ganze funktioniert erst bei dem letzten Datensatz +1. Wenn ich also beim letzten Datensatz angekommen bin, muss ich NOCHMAL auf den Button klicken bevor das ganze so kommt wie ich es möchte.. als wäre da noch "leersatz"..
Es wird nichts mehr verarbeitet wenn ich nochmal draufklicke, abgesehen davon das der Button umbeschriftet wird.
Wie kann ich sonst prüfen ob es der letzte Datensatz ist? Das ganze verwirrt mich ein wenig.

Liebe Grüße,
Andy

[zecke]

Ich habe keine Antwort auf deine Frage, aber ich würde mich auf den vorletzten Eintrag kümmern, denn mit Query1.next wählst Du ja immer weiter und wenn Du erst prüfst ob du am ende bist wenn man auf den knopf drückt, heißt das erst am ende verändert sich die caption.

Vielleicht am anfang die anzahl der einträge abfragen und eben eine bedingung, wenn der und der index erreicht is, die caption ändern.

Kenne mich aber nicht Datenbanken aus, deshalb habe ich keinen Code-Schnipsel. Sry, hoffe die Überlegung hilft :>

[Sanguis]

Äh nein, keine sorge.. bevor ich den nächsten Eintrag aufrufe, prüfe ich ob das nicht schon der letzte ist. Ich mache also quasi 2 eof Prüfungen. Einmal vor dem next und einmal dahinter, um zu gucken ob das JETZT der letzte ist.
Also damit hat es leider nichts zu tun.
Und bei der zweiten EOF Prüfung müsste er mir dann ja anzeigen ob ich grade den letzten Datensatz verarbeite. Falls ja, will ich den Button umbenennen. Was aber eben aus oben genannten Gründen erst bei EOF + 1 klappt.. irgendwie...

[Sharky]

Hai Sanguis,

es ist wirklich so das .Eof erst True wird venn versucht wird vom letzten Datensatz weiter zu springen.
Darum ist es am einfachsten mit dem von zecke vorgeschlagenen Weg zu arbeiten. Dies würde ich aber nicht in die Verarbeitungsprocedure setzen (OnClick des Buttons) sondern in das AfterScroll des DataSets.

Delphi-Quellcode:

procedure TForm1.QueryAfterScroll(DataSet: TDataSet);
begin
  if (DataSet.RecNo = DataSet.RecordCount) then
  begin
    next.Caption := 'Ende';
  end
  else
  begin
    next.Caption := 'Next';
  end;
end;

[Sanguis]

Ah, vielen Dank.
Es hat geklappt. Man lernt eben doch immer dazu.
Also, danke nochmal für die schnelle Hilfe