Как создать типизированный файл, file of Опции

[kosya4ok]

Всем привет! Почитал про типизированные файлы на форуме но так и не наашёл решение своей проблемы.
Хочу создать типизированный файл в который будут писать числа типа real.

const n = 8;
{type numbers = record
     num : real;
     end;}
type numbers = file of real;
var fname : string;
    i : integer;
    sum, k : real;
    ans : char;
    f1 : numbers;

function fi(p: integer): real;
var i : integer;
    sum : real;
begin

     sum := sqrt(3 * p);
     for i := p downto 1 do
         if (i = 1) then
             fi := sum
         else
             sum := sqrt(sum + 3 * (i - 1));
end;

procedure newfile(var f1 : numbers);
var s : string;
    num : real;
{with num_ref do}
begin
rewrite(f1);
{write(f1, num_ref);}
          for i := n downto 1 do
          begin
              if (i = 1) then
                 begin
                 num := sqrt(3);
                 writeln(f1, num);
                 break;
                 end
              else
                  begin
                  writeln(f1, fi(i));
                  end;
          end;
close(f1);
end;

procedure outputfile(var f1 : numbers; p : integer);
var s : string;

begin
     reset(f1);
     repeat
     readln(f1, s);
     write('f', p, '=');
     writeln(s);
     dec(p);
     until eof(f1);
end;

begin
clrscr;
writeln('Create a new file?');
readln(ans);
ans := upcase(ans);
if (ans = 'Y') or (ans = 'YES') then
   begin
   writeln('Enter name a file');
   readln(fname);
   assign(f1, fname);
   newfile(f1);
   outputfile(f1, n);
   end
else
    begin
    writeln('What file you want open?');
    readln(fname);
    assign(f1, fname);
    outputfile(f1, n);
    end;
readln;
end.

Пишет инвалидный тип файла. Помогите разобраться...

[kosya4ok]

Я не понимаю как мона сгруппировать и извлечь информацию из данного типизированного файлас помощью блокнота или ещё чего то там. Мона показать пример?

ЗЫ Не понял, всмысле просмотрщик файла?Ведь у меня функция и выводит бинарные данные из файла, но только на консоль.

procedure outputfile(var f1 : numbers; p : integer);
var s : real;
begin
     reset(f1);
     repeat
     read(f1, s);
     write('f', p, '=');
     writeln(s);
     dec(p);
     until eof(f1);
end;

Или ты что то другое имеел ввиду?

[andriano]

Я не понимаю как мона сгруппировать и извлечь информацию из данного типизированного файлас помощью блокнота или ещё чего то там. Мона показать пример?

С помощью блокнота - никак.
Точка.
(кажется, тебе это повторили уже 3 раза)

ЗЫ Не понял, всмысле просмотрщик файла?Ведь у меня функция и выводит бинарные данные из файла, но только на консоль.

А твоя программа и есть простенький консольный просмотрщик типизированного файла. Т.е. для просмотра такого файла нужно пользоваться ею ВМЕСТО блокнота.


Добавлено через 9 мин.

32-битные компиляторы не доведут до добра. Привычка, что real = double...

С чего это вдруг?
Последние несколько лет пользуюсь ТОЛЬКО 32-разрядными компиляторами и никакого "недобра" еще не почувствовал.
Может, я что-то не так делаю?

Кстати, real вообще НИКОГДА не использую.
И еще: real = double связано все-таки не с 16- или 32-разрядностью, а с тем, что к моменту появления этих 32-разрядных FPU стал непременным атрибутом ЛЮБОГО компьютера, т.к. переселился внутрь CPU. Соответственно, надобность в real, оптимизированном на обработку CPU, отпала. А на FPU он обсчитывается заметно дольше, чем поддерживаемые аппаратно single или double.

Ну, а по поводу формата 6-байтного real - в частности можно посмотреть здесь: http://de.uspu.ru/Informatics/Metodes/DPP/...glavs/4/433.htm

Посмотрел.
Ничего для себя интересного не обнаружил.
Я спрашивл: стандартизирован ли 6-байтовый real, или это исключительно "местное" изобретение Борланд?
Даже в 48-разрядной БЭСМ-6 формат представления вещественных данных (т.е. той же длины - 6 байт) был другим.