ошибка чтения файла

[Umnik1]

Надо прочитать bin файл с действительными числами. Пишу:

procedure TForm1.Button1Click(Sender: TObject);
var
c: real;

begin

Assignfile(f,'file.bin');
reset(f);
while not eof(f) do
begin
blockread(f,c,sizeof(c));
end;
CloseFile(f);

end;

выдается: project1.exe raised exception class EinOutError with message 'read beyond end of file'. Process stopped.

Что не так?

[mihali4]

Что не так?

А где у вас объявляется f ?

[_SERGEYX_]

А f скопировано с учебника, который не дочитал до конца...

[Umnik1]

в начале - как глобальная переменная. если объявить в процедуре то тоже самое...

[JTG]

Значит в файле не действительные числа

[Umnik1]

нет там действительные точно)

[JTG]

ааа, блин

blockread(f,c,1);

3й параметр - не размер, а количество блоков, которые надо считать. Размер задаётся явно (f:file of real)
или f:file; ... reset(f,sizeof(c));

[Kostia]

blockread(f,c,sizeof(c));
blockread(f,c,1);

А чем собственно read(f,c) не устраивает?

[Umnik1]

заработало когда reset(f,1) написал...
а как read работаяет я не знаю)

[DeKot]

Reset открывает файл по файловой переменной f (она обьявляется заранее и в AssignFile связывается с указанным файлом. А read - процедура считывания данных с файла f.