Когда указываю этот массив в своей процедуре, то возникает ошибка 200 на процедуре BlockRead,
а если указать масссив в основной программе, ошибки нет. Что не так?
procedure p(var f : file);совершенно нормально отрабатывает, безо всяких ошибок. Да, файл открывался через reset(f, 1);
var buffer: array[0 .. 0] of byte;
begin
writeln(sizeof(buffer));
while not eof(f) do
begin
blockread(f, buffer, 1);
writeln(buffer[0]);
end;
end;
var
b: array [0..0] of byte;
procedure rd (name: string);
var
f: file;
begin
assign(f,name); reset(f,1);
blockread (f, b,400);
close(f);
end;
begin
rd ('bitmap.bmp');
end.
procedure rd (name: string);
var
b: array [0..0] of byte;
f: file;
begin
assign(f,name); reset(f,1);
blockread (f, b,400);
close(f);
end;
begin
rd ('bitmap.bmp');
end.