Abfrage auf Datensatzzeiger in Tabelle

rob87 · Verfasst: Di 02.09.08 14:21

Ich steh momentan glaub ich etwas aufm Schlauch.

Ich will einen Code so schreiben, dass wenn mein Datensatzzeiger beim letzten Datensatz is, soll er beim ersten weitermachen.

Wenn ich so code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

if Table1.EoF then
  Table1.First;
end else begin
  Table1.Next;
end;

, macht er mir den letzten Datensatz immer doppelt. Is ja auch klar.

Aber den Befehl Table1.Last den gibts ja nicht mit Boolean??? Es gibt nur die Methode Last;

Ich brauch ein: "If Table1.Last then ...." oder so in der Richtung. Aber Table1.Last; positioniert ja nur den Datenzeiger an die letzte Stelle.

Helfts ma... :roll:

alzaimar · Verfasst: Di 02.09.08 15:53

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Procedure CircleNext (aDataset : TDataset);
Begin
  If aDataset.Eof Then
    aDataset.First
  Else Begin
    aDataSet.Next;
   If aDataset.Eof Then
     aDataset.First
  End
End;

Ungetestet.

_________________
Na denn, dann. Bis dann, denn.

rob87 · Verfasst: Di 02.09.08 15:57

alzaimar hat folgendes geschrieben:

Ungetestet.

Mach ich nachher gleich mal. Werde berichten. :wink:

rob87 · Verfasst: Mi 03.09.08 10:26

rob87 hat folgendes geschrieben:

alzaimar hat folgendes geschrieben:

Ungetestet.

Mach ich nachher gleich mal. Werde berichten. :wink:

Basst! Super. Merci. :lol:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme