Amigos en mi ignorancia a la hora de manejar archivos queria saber que se hace exactamente en esta función:
Código Delphi
[-]
BlockRead( fPtr, PChar( lpRec.data )^, dSize, rdTotal );
if DWORD( rdTotal ) <> dSize then
begin
CloseFile( fPtr );
FreeRecordMem( lpRec );
GetRecord := nil;
Exit;
end;
para hacer lo mismo pero con mi variable TMemory