Прочитать файл вещественных чисел

[Coder12]

Вот что написал:

procedure TForm1.Button1Click(Sender: TObject);
var f:file of real;
    a:real;
begin
assignfile(f,'d:\12.dat');
reset(f);
read(f,a);
end;

end.

возникает ошибка в строке read(f,a).
текст файла 12.dat : 12,5

[Serge_Bliznykov]

текст файла 12.dat : 12,5

в файле f:file of real - не может быть ТЕКСТА!
Он - должен быть БИНАРНЫЙ (двоичный).

создайте его через процедуру:

procedure TForm1.Button1Click(Sender: TObject);
var f:file of real;
    a:real;
begin
  assignfile(f,'d:\12.dat');
  rewrite(f);
  a := 12.5;
  write(f,a);
  CloseFile(f);
end;

а потом уже читайте! (и не пытайтесь посмотреть текстовым редактором/блокнотом содержимое двоичного файла - ничего хорошего всё равно не увидите!)