Проблема с типизированными файлами

[Des80]

Я создаю файл типа Tstats.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
f:file of Tstats;
i:integer;
s:Tstats;
begin
s:=Tstats.Create;
s.AddPm('1',3,'34/55',32,2,54,7,3);
assignfile(f,'D:/13.stats');
rewrite(f);
write(f,s);
closefile(f);
end;

Затем считываю данные из файла

procedure TForm1.BitBtn2Click(Sender: TObject);
var
f:file of Tstats;
s:Tstats;
begin
s:=Tstats.Create;
assignfile(f,'D:/13.stats');
reset(f);
read(f,s);
closefile(f);
showmessage(s.pm[0].score);
end;

Проблема в том, что все нормально работает когда я файл создаю и читаю, не выключая программу.
Если создать файл, выключить программу, потом включить снова и попытаться его прочитать, то ничего не выйдет и в переменной s типа Tstats будет пусто.

Кто нибудь может помочь мне решить эту проблему?

[northener]

С каких это пор типизированные файлы работают с классами?

[Des80]

цитата из книги фаронова.
Типизированный файл: <имя> = File of <тип>,
где <имя> - имя файлового типа, <тип> - любой тип делфи, кроме файлов

[northener]

Сообщение от Des80

цитата из книги фаронова.
Типизированный файл: <имя> = File of <тип>,
где <имя> - имя файлового типа, <тип> - любой тип делфи, кроме файлов

Не знаю что там пишет Фаронов, но справка по Дельфи пишет иное:
type fileTypeName = file of type

where fileTypeName is any valid identifier and type is a fixed-size type. Pointer types - whether implicit or explicit - are not allowed, so a file cannot contain dynamic arrays, long strings, classes, objects, pointers, variants, other files, or structured types that contain any of these.

Ну а то что у вас "все нормально работает когда я файл создаю и читаю, не выключая программу" легко объяснимо, особенно если посмотреть на размер получаемого вами файла - 4 байта. В файл вы записываете адрес в памяти созданного вами экземпляра класса s:=Tstats.Create;. И пока вы не выйдете из программы этот адрес верный.

[Des80]

Понятно, тогда как мне создать файл со сложной структурой? Например я хочу создать свой графический редактор или свой текстовый редактор и мне надо чтобы данные были закодированы определенным образом.

Еще интересует как сделать файл, в котором лежат данные в виде таблицы.
Столбцы и записи можно увеличивать и уменьшать. Подскажите как реализовать это, если типизированые файлы не работают с динамическими массивами и классами?

[northener]

тогда как мне создать файл со сложной структурой?

Для этого есть нетипизированные файлы. Структуру должны разработать вы сами по своим потребностям.

как сделать файл, в котором лежат данные в виде таблицы.

Простейший вариант - CSV файл

[Des80]

То есть я могу создать переменую типа File и через Tfilestream заливать данные из объекта Tstats в файл и наоборот, я правильно понимаю?

[Serge_Bliznykov]

File и через Tfilestream заливать данные из объекта Tstats в файл и наоборот, я правильно понимаю?

правильно понимаете!
Только Вам нужно будет соблюсти следующие условия:
- писать нужные данные (поля) из TStats в файл "ручками"
- соблюдать правила заполнения файла (структуру), чтобы данные можно было не только записать, но и, потом, прочитать.
Например, при записи строки писать сначала длину строки, потом - собственно символы строки

ну и последнее. Вы вполне можете пользоваться и типизированными файлами.
Опишите нормальную структуру (типа record) с нужными ограничениями (не использовать ссылочные типы данных) и можете писать/читать её одним лёгким движением кода!

[Des80]

Это гениально!

[Serge_Bliznykov]

Сообщение от Des80

Это гениально!

это Вы о чём?..