Cita:
Empezado por jachguate
Código Delphi [-]
Procedure IrAlRegistroNo(ds: TDataSet; NoRec : Integer);
Var
i : Integer;
Begin
ds.first;
for i := 1 to NoRec do
ds.next;
end;
|
Mmm.., bueno, en este caso podríamos simplificar un poco:
Código Delphi
[-]
Procedure IrAlRegistroNo(ds: TDataSet; NoRec : Integer);
Begin
ds.first;
ds.moveby(NoRec);
end;
De cualquier forma quizá cabe aclarar que normalmente no es buena idea depender de la posición física de los registros.
// Saludos