Anton Tichawa wrote:
> Please post the data declarations (e. g. var Count: Integer; const
> MAX_BUFFER_SIZE = .. etc.). Normally, an index starts from 0 upwards, e. g.
> if you had:
It starts at 1, but that really shouldn't matter that much.
If you really want the other stuff I can give you what I have now, but that is
not really readable :-) :
const
FILEAR_MAX_BUFFER_SIZE = 500;
...
if startBufferIndex < realFileSize then
begin
{$i-}
seek(dataFile, startBufferIndex);
{$i+}
err := IOResult;
{ xxx error check here deleted }
count := min(endBufferIndex, realFileSize - 1) - startBufferIndex + 1;
{$i-}
blockread(dataFile, fabuffer, count);
{$i+}
err := IOResult;
{ xxx error check here deleted }
end;
As you can see I simply assume that everything is read in to the buffer and I
also know that the remaining file is larger than or equal to the count.
Best regards Preben
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
