Cita:
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(fPtr, PChar(lpRec.data)^, dSize, rdTotal);
if DWORD(rdTotal) <> dSize then
begin
CloseFile(fPtr); FreeRecordMem(lpRec); GetRecord := nil; Exit; end;
Saludos.