procedimiento LeerAlgunosRegistros (
Fichero: cadena;
NRegistrosALeer: entero;
salida Registros: tabla de enteros;
salida NRegistrosLeidos: entero;
esGeneral: booleano = falso);
Carga en
memoria un determinado número de registros de un fichero, decidiendo aleatoriamente
cuáles y devolviendo los identificadores de los mismos en una tabla de
enteros. |
Carga en
memoria NRegistrosALeer registros del Fichero y devuelve sus identificadores en la
tabla de enteros Registros. En NRegistrosLeidos devuelve el número de registros cargados
realmente, para tener en cuenta el caso de que el fichero tuviera menos
registros que los que se deseaban leer. Los identificadores devueltos permiten
trabajar con los registros usando las funciones incorporadas ValorRegistro, AsignarValorRegistro, GrabarRegistro, etc.
G77_BD
·
Tutorial >> Operar con la
base de datos >> Nombres de ficheros y códigos de campos
·
Tutorial >> Operar con la
base de datos >> Correspondencia de los tipos de datos
·
Tutorial >> Operar con la
base de datos >> Funciones de gestión de registros
·
Tutorial >> Operar con la
base de datos >> Funciones de gestión de registros >> Gestionar
todos los registros que cumplen una determinada condición
·
Tutorial >> Cómo ejecuta
OriGn los scripts >> Casos conflictivos y su solución >> Creación
de registros y otros cambios en ficheros
(...) // Leer un contacto cualquieraAsignarOrdenRegistros(5000); LeerAlgunosRegistros('CONTACTO', 1, Contacto, numContacto); Aviso('Leídos '+inttostr(numContacto)+' contactos.'); (...) |