----- Original Message ----- From: "Preben Mikael Bohn" <[EMAIL PROTECTED]> > Right now I terminate the program if all data can not be read in one go and I > have not have any problems with it. However you are completely right that I > should use the returned count, the problem is that I don't know how to tell > blockread to start from somewhere within my buffer-array and from the start. > Of course I could just copy the buffer-content to another array, but this > seems awful clumpsy. > var buffer :pByte;
or type tbuffer = array [0..0] of byte; pbuffer = ^tbuffer; var buffer :pBuffer; blockread( f, buffer[ integer index starting at 0 ], desired_bytes_to_read, actual_bytes_readed ); if you don't want to redefine the type of "buffer" you can type-cast it when calling blockread i.e: pByte( buffer ) [ index ] anyway I don't see what you want to do with that procedure, since you set a maximum value for the buffer but you don't check if the file is larger than the buffer. Recursive calls will overwrite the contents of the buffer. ciao _______________________________________________ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal
