ein Click zuviel bei table1.eof (gelöst)

Klaus22 · Hält's aus hier Beiträge: 12

hai zusammen,

ich habe mal wieder ein problem: ich habe in meinem programm einen button, welcher jeweils bei click einen datensatz in meinem dbgrid weiterspringt. ist der letzte erreicht möchte ich diesen deaktivieren. das funktioniert auch, aber erst wenn ich beim letzten markierten noch einmal auf den button klicke. da ist der letzte satz im dbgrid aber schon markiert. folgenden code habe ich verwendet.

markieren

Delphi-Quelltext

1:
2:
3:

table1.next;
if table1.eof = true then
btnNext.enabled := false;

weiß jemand wie das zu realisieren ist ?

kann man die standardfarbe blau, bei markierten datensätzen auch ändern ?

gruß + danke

Moderiert von Klabautermann: Topic Verschoben. Code durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

Du hast 100 DS. Nun, woher soll die DB wissen, dass nach dem DS 100 keiner mehr kommt? Das kann sie erst feststellen, wenn sie versucht den 101'sten anzuspringen.

fränk0815 · Verfasst: Sa 31.01.04 19:22

Eventuell könnte das so klappen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
button1.enabled := not DataSet.Eof;
end;

Moderiert von Klabautermann: Code durch Delphi-Tags ersetzt.

jjturbo · Verfasst: Di 03.02.04 11:39

Bei Paradox gehts so:

Button1.Enabled:=Table1.RecNo < Table1.RecordCount;

Bei DBase darfst Du die Datensatznummern so nicht verwenden. Da würrde ich es so lösen:

Table1.Next;//Das wäre der gewünschte Datensatz...

//Jetzt noch prüfen, ob das der letzte Datensatz ist
Table1.Next;
if Table1.Eof
then Button1.Enabled:=false
else Table1.Prior;

Gruß, jjturbo

_________________
Windows XP: Für die einen nur ein Betriebssystem - für die anderen der längste Virus der Welt...

Klaus22 · Hält's aus hier Beiträge: 12

Danke für die vielen Tipps. Folgender Code und es funzt.

markieren

Quelltext

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

procedure TForm1.Button9Click(Sender: TObject);
begin
 if Table1.RecNo = Table1.RecordCount-1 then
   begin
     table1.Next;
     Button9.Enabled := false
   end
 else
  begin
   table1.Next;
  end;
 end;

Vielen Dank nochmal für Eure Tipps !

mfg Klaus

jjturbo · Verfasst: Di 03.02.04 13:16

Aber Achtung!!!
RecNo bei DBase-Tabellen funktioniert nicht! Wenn in einer leeren, neu erstellten DBase-Tabelle z.B. fünf Datensätze eingepflegt werden, so haben diese die Datensatznummern 1-5. Wird jetzt der Datensatz mit der Nummer 3 gelöscht und ein neuer Datensatz eingefügt, so haben die Datensätze jetzt die Nummern:1,2,4,5,6 !!!

Append und Insert bei einer DBase-Tabelle hängen immer Daten an die Tabelle an. Wirklich Daten einfügen geht hier nicht. Zumindest habe ich noch keine Möglichkeit dafür gefunden. Ein Grund mehr auf Paradox umzusteigen ;-)

Gruß, jjturbo

_________________
Windows XP: Für die einen nur ein Betriebssystem - für die anderen der längste Virus der Welt...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme