block read
Original Reporter info from Mantis: FPCCore
-
Reporter name: FPC core team
Original Reporter info from Mantis: FPCCore
- Reporter name: FPC core team
Description:
¦ FPC HELP tell
¦ Declaration
¦ Procedure Blockread (Var F : File; Var
¦ Buffer; Var Count : Longint [; var Result
¦ : Longint]);
in this program: there is this error:
bl2.pas(13,27) Error: range check error while evaluating constants
IT IS: SizeOf(Buf)
var
FromF, ToF: file;
NumRead, NumWritten: Word;
Buf: array[1..160048] of integer;
begin
Assign(FromF, ParamStr(1));
Reset(FromF, 1);
Assign(ToF, ParamStr(2)); { Open output file }
Rewrite(ToF, 1);
Writeln('Copying ', FileSize(FromF), ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
Close(FromF);
Close(ToF);
end.
// go32v2 / win32 1.0.7
Additional information:
Reporter: salvatore licciardi
EMail: turylicciardi at tiscalinet dot it
Mantis conversion info:
- Mantis ID: 4014
- OS: All
- Version: 1.0.6
- Fixed in version: N/A