Foros Club Delphi - Ver Mensaje Individual

[Caral] · #2 13-08-2010

Hola
Boton next:
Al llegar al final, regresa al primero:

Código Delphi [-]  ADOQuery1.Next;
  If DataSource1.DataSet.Eof then
  ADOQuery1.First;

Si no se tiene datasource en la linea IF:

Código Delphi [-] ADOQuery1.DataSetField.DataSet.Eof

Boton Prior:
Al Llegar al primer registro, va al ultimo:

Código Delphi [-] ADOQuery1.Prior;
 If DataSource1.DataSet.Bof then
 ADOQuery1.Last;

Si no se tiene datasource en la linea IF:

Código Delphi [-] ADOQuery1.DataSetField.DataSet.Bof

Saludos