Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Типизированный файл странно читается

Light-blr © (2007-10-04 14:24:00)
Здравствуйте!
У меня две программы - одна составляет уровни для игры и записывает в типизированный файл, а другая позволяет открыть записанные уровни и играть. В обеих программах объявлены одинаковые типы и одинаковое открытие и чтение файла. Так вот, программа-редактор уровней, которая создаёт этот файл, отлично его читает. А программа-игра при попытке прочесть выдаёт какие-то странные значения.

Вот типы:

TTable=array[0..TableHei+1,0..TableWid+1]of shortint;
TLevel=record
TableW:shortint;
TableH:shortint;
NeedSteps:integer;
FreeSeconds:integer;
Table:TTable;
end;

Вот переменные:

Levels:array[1..50]of TLevel;
f:file of TLevel;

Вот сохранение:

AssignFile(f,SaveDialog1.FileName);
rewrite(f);
for i:=1 to LevelCount-1 do
Write(f,levels[i]);
closefile(f);
end;

Вот открытие в программе-редакторе:

If OpenDialog1.Execute then begin
AssignFile(f,OpenDialog1.FileName);
Reset(f);
LevelCount:=FileSize(f);
for i:=1 to LevelCount do
Read(f,Levels[i]);
inc(LevelCount);end;

Вот открытие в программе-игре:

AssignFile(f,'D:\temp\levels.dat');
Reset(f);
CountOfLevels:=FileSize(f);
for i:=1 to CountOfLevels do
Read(f,levels[i]);

и здесь CountOfLevels странным образом оказывается равным 78, в то время как в программе-редакторе, как и должно быть, FileSize возвращает значение 20. Ну и дальше вся таблица Table тоже плывёт - значения читаются неправильно.

Скажите, что сделать, чтобы правильно прочитать этот файл?

Amoeba (2007-10-04 19:31:00) [1]

> packed array

Массивы и так по умолчанию packed.

Anatoly Podgoretsky (2007-10-04 14:43:00) [2]

> Это массив shortint-ов у него так называется. Я тоже сначала
> так подумал...

Мастер запутывания.

Light-blr (2007-10-04 14:38:00) [3]
Странным образом помогло... Спасибо огромное!

Инс (2007-10-04 14:31:00) [4]

> Light-blr (04.10.07 14:24)

Объявите вместо array и record соответственно packed array и packed record, может поможет

Инс (2007-10-04 14:29:00) [5]

> Странно, как это ты умудрился записать в файл указатель
> на объект и какова великая цель?

Это массив shortint-ов у него так называется. Я тоже сначала так подумал...

Anatoly Podgoretsky (2007-10-04 14:28:00) [6]
> Light-blr (04.10.2007 14:24:00) [0]

Странно, как это ты умудрился записать в файл указатель на объект и какова великая цель?
А так ты видимо ничего не знаешь про выравнивания полей в записи.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »