Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

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

 
Light-blr   (2007-10-04 14:24) [0]

Здравствуйте!
У меня две программы - одна составляет уровни для игры и записывает в типизированный файл, а другая позволяет открыть записанные уровни и играть. В обеих программах объявлены одинаковые типы и одинаковое открытие и чтение файла. Так вот, программа-редактор уровней, которая создаёт этот файл, отлично его читает. А программа-игра при попытке прочесть выдаёт какие-то странные значения.

Вот типы:

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 тоже плывёт - значения читаются неправильно.

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


 
Anatoly Podgoretsky ©   (2007-10-04 14:28) [1]

> Light-blr  (04.10.2007 14:24:00)  [0]

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


 
Инс ©   (2007-10-04 14:29) [2]


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

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


 
Инс ©   (2007-10-04 14:31) [3]


> Light-blr   (04.10.07 14:24)

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


 
Light-blr   (2007-10-04 14:38) [4]

Странным образом помогло... Спасибо огромное!


 
Anatoly Podgoretsky ©   (2007-10-04 14:43) [5]


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

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


 
Amoeba ©   (2007-10-04 19:31) [6]


> packed array

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



Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
1-1187184113
Игорь_
2007-08-15 17:21
2007.10.28
Закрытие сокета


4-1177599496
ffo_2
2007-04-26 18:58
2007.10.28
Как получить имя этого компонента?


2-1191315966
webpauk
2007-10-02 13:06
2007.10.28
Положение компонента


15-1191294037
Slider007
2007-10-02 07:00
2007.10.28
С днем рождения ! 2 октября 2007 вторник


9-1162569237
Jus
2006-11-03 18:53
2007.10.28
ООП классы