[ecfisa]

Empezado por JerS

Amigos en mi ignorancia a la hora de manejar archivos queria saber que se hace exactamente en esta función:
...

Hola JerS.

Me parece que la explicación es mas clara comentando el código:

Código Delphi [-]
 { BlockRead lee uno o mas registros lógicaos a partir de la
   posición actual del archivo y los almacena en una variable }
   BlockRead(fPtr,               // file
             PChar(lpRec.data)^, // variable
             dSize,              // nro de registros
             rdTotal);           // registros leidos

   { Si el número de registros leidos difiere de los solicitados ...}
   if DWORD(rdTotal) <> dSize then
   begin
      CloseFile(fPtr);           // cerrar file
      FreeRecordMem(lpRec);      // ?? (supongo libera puntero a record)
      GetRecord := nil;          // pone a nulo el puntero GetRecord
      Exit;                      // sale del procedimiento/funcion
   end;

Saludos.