Código Delphi [-] Var N, i : Integer; begin N := 20; // Primeros 20 registros. // Ya teniendo la tabla creada y abierta (claro). Tabla1.First; for i := 1 to N do begin if not Tabla1.EOF then begin // Acceder a los campos. // Por Ejemplo: Memo1.Lines.Add(Tabla1.FieldByName('Campo1').AsString); Tabla1.Next; end else Break; end; end; // Cerrar tabla. Tabla1.Close, liberar recursos ....
Var N, i : Integer; begin N := 20; // Primeros 20 registros. // Ya teniendo la tabla creada y abierta (claro). Tabla1.First; for i := 1 to N do begin if not Tabla1.EOF then begin // Acceder a los campos. // Por Ejemplo: Memo1.Lines.Add(Tabla1.FieldByName('Campo1').AsString); Tabla1.Next; end else Break; end; end; // Cerrar tabla. Tabla1.Close, liberar recursos ....